如何让VB ADO对象链接不上数据库时报错？

显示全部楼层 · 2011-8-24 20:35:45

我需要代码，有解释最好，我初学VB，有些不懂，拜托各位了

千问 · 2011-8-24 20:35:45

一个简单的刷新例子 Private Sub Command6_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Combo1.Text = ""Option1.Value = FalseOption2.Value = Falsers1.CloseDim var As Stringvar = "select * from 记录"rs1.Open var, cnn, adOpenKeyset, adLockOptimisticSet DataGrid1.DataSource = rs1需要先关闭...

千问 · 2011-8-24 20:35:45

这个写在模块既代码中，sub main（）Option ExplicitPublic cn As New ADODB.ConnectionPublic rs3As New ADODB.RecordsetSub Main() On Error GoTo Err cn.CursorLocation = adUseClient...