u8取数代码
1
PublicRepAsStri
g
PrivateSubCheckBox1_Cha
ge确定是否使用默认登录IfMeCheckBox1ValueTrueThe
MeTextBox1E
abledTrueMeTextBox4E
abledTrueElseMeTextBox1E
abledFalseMeTextBox4E
abledFalseE
dIfE
dSubPrivateSubComma
dButto
18_Click这段代码用于搜索指定数据库服务器中的数据库
f设置出错跳转O
ErrorGoToerr声明相关变量Dimdatabase
ameAsStri
g
保存数据名称Dimc
AsADODBCo
ectio
ADO连接DimstrC
AsStri
g
保存连接字符串Setc
NewADODBCo
ectio
初始连接DimrctAsADODBRecordset
f记录集根据是否指定登录ID,构建连接字符串IfCheckBox1ValueflaseThe
strC