vb连接时出现无法打开登陆中请求的数据 这是出错句 cnn.Open loginsql
Private Sub Form_Load()
loginsql = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tushu;Data Source=."
Me.Picture = LoadPicture(App.Path & "\images\未标题.jpg")
buff1 = String(255, 0)
buff2 = String(255, 0)
buff3 = String(255, 0)
ret1 = GetPrivateProfileString("LOGINSQL", "SERVER", "", buff1, 256, App.Path & "\login.ini")
ret2 = GetPrivateProfileString("LOGINSQL", "LOGIN", "", buff2, 256, App.Path & "\login.ini")
ret3 = GetPrivateProfileString("LOGINSQL", "PASSWORD", "", buff3, 256, App.Path & "\login.ini")
If ret1 <> 0 Then
If Left(buff1, 9) = "127.0.0.1" Then
cnn.Open loginsql
Timer1.Enabled = True
Else
Text1.Text = buff1
Text2.Text = buff2
Text3.Text = buff3
tkOpenSQLServerDB Text1.Text, "tushu", Text2.Text, Text3.Text
Timer1.Enabled = True
End If
Else
Form9.Show
Timer1.Enabled = False
Unload Me
DataSource没有指出数据库路径应该这样写
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tushu;Data Source=D:\数据库名称.mdb."
vb连接时出现无法打开登陆中请求的数据 这是出错句 cnn.Open loginsql...
你的这段有问题loginsql = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tushu;Data Source=."DataSource没有指出数据库路径应该这样写 "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tushu;Data Source=D:\\...
运行一个vb连接的数据库,老是说对象变量或WITH模块未设置,调试时光标指 ...
很明显，就是 Set mrc = ExecuteSQL(txtSQL, MsgText)这句报了错（大概是数据库没有连接上，或者是查询语句有问题），导致mrc为null,所以抛出了那个错误。
VB中编译错误,未找到方法或数据对象
出问题的在哪句？Dim fLogin As New frmlogin Set fMainForm = New frmMain 这些窗体都存在吗？
VB的ADODC连接SQL2000,已经显示连接成功,怎么运行时显示对象变量和With...
你的代码就是连接SQL 数据库，连接字符串可以从ADODC控件获取。Dim cnn as New ADODB.Connection cnn.connectionstring="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书馆信息服务系统"cnn.open if cnn.state=0 then '连接失败 ...
VB运行之后出现错误:用户定义类型未定义那位大侠帮帮忙
哪一句提示的!Stpath = App.Path & "\\Info.mdb" '获取数据库路径，此处为与该excel表在同目录下
网页制作问题
首先是login.asp(这个文件中的内容相信楼主都看得懂吧我就不注释了） 系统登陆 input.a{width:120;height:19;border:1pt solid #666666;} function KillSpace(x){ \/\/这个函数是JavaScript用来删除表单中文本框中的前后空格 while((x.length>0) && (x.charAt(0)==' ')){ x = x....
