UC知道关于VB里如何重复执行打开数据库？
来源：百度知道 编辑：UC知道 时间：2024/09/19 15:48:38
以下是一段打开SQL数据库的代码：
Dim sconn
Dim conn As New ADODB.Connection
conn.CommandTimeout = 240
conn.ConnectionTimeout = 240
sconn = "Provider=SQLOLEDB.1;Password=11;Persist Security Info=True;User ID=sa;Initial Catalog=13;Data Source=127.0.0.1"
conn.Open sconn
我在程序里多个：command 每次都要将以上的代码重复写入，有没有什么办法像ASP一样，只要打开数据库后面加个：,conn就可以操作打开数据库了？？
我知道有个：Function应该可以实现，但是不知道如何写，请高手赐教下，谢谢了！～分不多，不好意思！～
Dim sconn
Dim conn As New ADODB.Connection
conn.CommandTimeout = 240
conn.ConnectionTimeout = 240
sconn = "Provider=SQLOLEDB.1;Password=11;Persist Security Info=True;User ID=sa;Initial Catalog=13;Data Source=127.0.0.1"
conn.Open sconn
我在程序里多个：command 每次都要将以上的代码重复写入，有没有什么办法像ASP一样，只要打开数据库后面加个：,conn就可以操作打开数据库了？？
我知道有个：Function应该可以实现，但是不知道如何写，请高手赐教下，谢谢了！～分不多，不好意思！～
将两条Dim语句,放在代码窗口的最前面(即公有变量)
再将
conn.CommandTimeout = 240
conn.ConnectionTimeout = 240
sconn = "Provider=SQLOLEDB.1;Password=11;Persist Security Info=True;User ID=sa;Initial Catalog=13;Data Source=127.0.0.1"
conn.Open sconn
放到Form_Load事件中
这样,在别处,就都可以用Conn这个变量了