高分问个简单的小问题 在线等 有答案 马上结帖子

Question

以下内容每个窗体都要用到  我不会用模块  请问是不是可以把这些都放到模块里 然后在调用?
帮忙写个完整的模块让我抄袭一下啊 谢谢
Dim s, Y, i     '定义变量
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
Dim rs5 As ADODB.Recordset
'Dim rs4 As ADODB.Recordset
Dim lsph As Integer     '定义一个整型变量
Dim cnn As ADODB.ConnectionPrivate Sub Form_Load()
Set cnn = New ADODB.Connection
 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=NKC.mdb"Data1.DatabaseName = App.Path & "\NKC.mdb"End Sub

Answer 1

public s, Y, i     '定义变量
public rs1 As ADODB.Recordset
public rs2 As ADODB.Recordset
public rs3 As ADODB.Recordset
public rs5 As ADODB.Recordsetpublic lsph As Integer     '定义一个整型变量
public cnn As ADODB.ConnectionSub main()
Set cnn = New ADODB.Connection
 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=NKC.mdb"
主窗体.show
End Sub以上这些放到模块里面，同时注意要把工程的启动设置为Sub Main
Data1.DatabaseName = App.Path & "\NKC.mdb"
这句就得在窗体form_load事件里面写了

Answer 2

Sub main()
Set cnn = New ADODB.Connection
 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=NKC.mdb"
主窗体.show
End Sub
 我觉得这块 最好不用放在模块里！！放在 form_load事件里面 就行了！！还可以顺便检查是否连接数据库 成功！！

Answer 3

Private Sub Form_Load()
 Set cnn = New Connection
  On Error GoTo sign1
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=NKC.mdb"
  Exit Sub
sign1:      MsgBox "服务器连接失败！", vbExclamation + vbOKOnly, "提示"
 
  End
 
End Sub

Answer 4

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=NKC.mdb"
这句话最好不要放到Form_load事件里面
理由：
1。联接数据库需要时间，每次启动窗体都连接数据库会很慢
2。Connection是很耗费资源的，所有窗体公用一个就可以了，每个窗体都打开一个太浪费

Answer 5

问问这个
MsgBox "服务器连接失败！", vbExclamation + vbOKOnly, "提示"
 
中的"提示"也是经常出现的 能不能在模块里怎么写m="提示"?写好了之后在每个MsgBox 直接写成 
MsgBox "服务器连接失败！", vbExclamation + vbOKOnly, m

Answer 6

Public m As String
 m = "提示" '这句不对 前面加什么?忘了

Answer 7

m = "提示"
这句话要放到某个函数或者过程里面，不可以在定义通用变量的地方赋值
放到sub main里面可以，放到窗体的某个事件里面也可以