1.6w+
社区成员
请高手帮纠正VB运行的4处错误。
请高手帮纠正VB运行的4处错误。如下 谢谢!!!
错误1:未定义类型“adodb.connection”。行4列19
错误2:未定义类型“adodb.recordset”。行5列19
错误3:未定义类型“adodb.connection”。行9列18
错误4:“pring”不是“System.Diagnostics.Debug”的成员。行20列13
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
行4 Dim cn As adodb.connection
行5 Dim rs As adodb.recordset
Dim sql As String
Dim n As Long
行9 cn = New adodb.connection
cn.open("server=erpit;initial catalog=fff;user id=sa;pwd=dns;")
sql = "insert into 工资表(姓名) values('" & TextBox1.Text & "')"
cn.execute(sql, n)
MsgBox("本次操作影响的行数：" & n)
sql = "select * from 工资表 where 姓名='" & Trim(TextBox1.Text) & "'"
rs = cn.execute(sql)
While Not rs.eof
行20 Debug.pring(Format(rs!工资)
rs.movenext()
End While
rs = Nothing
cn = Nothing
End Sub
End Class
错误1:未定义类型“adodb.connection”。行4列19
错误2:未定义类型“adodb.recordset”。行5列19
错误3:未定义类型“adodb.connection”。行9列18
错误4:“pring”不是“System.Diagnostics.Debug”的成员。行20列13
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
行4 Dim cn As adodb.connection
行5 Dim rs As adodb.recordset
Dim sql As String
Dim n As Long
行9 cn = New adodb.connection
cn.open("server=erpit;initial catalog=fff;user id=sa;pwd=dns;")
sql = "insert into 工资表(姓名) values('" & TextBox1.Text & "')"
cn.execute(sql, n)
MsgBox("本次操作影响的行数：" & n)
sql = "select * from 工资表 where 姓名='" & Trim(TextBox1.Text) & "'"
rs = cn.execute(sql)
While Not rs.eof
行20 Debug.pring(Format(rs!工资)
rs.movenext()
End While
rs = Nothing
cn = Nothing
End Sub
End Class
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
JeffChung 2010-07-14
你这一整段代码都是用的旧的用法，ado
现在一般用ado.net的
随便给点代码你参考一下
现在一般用ado.net的
随便给点代码你参考一下
Using connection As OleDbConnection = New OleDbConnection( _
"Provider=MSDataShape;Data Provider=SQLOLEDB;" & _
"Data Source=(local);Integrated " & _
"Security=SSPI;Initial Catalog=northwind")
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter( _
"SELECT CustomerID, CompanyName FROM Customers " , connection)
Dim customers As DataSet = New DataSet()
adapter.Fill(customers, "Customers")
End Using
mosenyou 2010-07-12
cn.Open("server=erpit;initial catalog=fff;user id=sa;pwd=dns;")
这句是不是旧VB的写法？.NET应怎么改?
这句是不是旧VB的写法？.NET应怎么改?
JeffChung 2010-07-12
把pring改成print
古今多少事 2010-07-12
Debug.print(Format(rs.fields("工资"),"####.##"))
mosenyou 2010-07-12
引用后还有两个错误，该怎么改呀？
错误1:“pring”不是“System.Diagnostics.Debug”的成员。行20列13 Debug.pring
错误2:没有可访问的“Fields”接受此数目的参数，因此重载决策失败。行20列32 rs!工资
错误1:“pring”不是“System.Diagnostics.Debug”的成员。行20列13 Debug.pring
错误2:没有可访问的“Fields”接受此数目的参数，因此重载决策失败。行20列32 rs!工资
mosenyou 2010-07-12
引用后还有两个错误，该怎么改呀？
错误1:“pring”不是“System.Diagnostics.Debug”的成员。行20列13 Debug.pring
错误2:没有可访问的“Fields”接受此数目的参数，因此重载决策失败。行20列32 rs!姓名
错误1:“pring”不是“System.Diagnostics.Debug”的成员。行20列13 Debug.pring
错误2:没有可访问的“Fields”接受此数目的参数，因此重载决策失败。行20列32 rs!姓名
CMIC 2010-07-12
写错了，应该是添加相关mdac的引用。
CMIC 2010-07-12
你的代码应该是纯vb代码吧，发错地方了，CSDN有一个vb的版。 没添加ado.net 引用,在visual studio 6里面有个菜单项能添加，具体的不记得在那。
VB图像处理，（一）像素的获取和输出 一直想自己写一个图像处理的软件。在网络上找各种图像处理方面的技术文章。但是找到的往往不是高深的理论，就是用C++等语言写出来的...把自己所掌握的处理技巧作了一个“包装”，感慨于资料收集的不便和学习VB中的点点
VB图像处理，（二）二次线性插值的应用 上次讲到了用DIB方法来获取图像的像素。从这次开始将如果运用已经得到的像素来处理图像。...程序中用到的API、数据类型、全局变量的定义请参考上一篇：《VB图像处理，（一）像素的获取和输出 》Public Sub ZoomImag
VB 共享软件防破解设计技术初探（二） VB 共享软件防破解设计技术初探（二） ×××××××××××××××××××××××××××××××××××××××××××××× 其他文章快速链接： VB 共享软件防破解设计技术初探（一） ...
《编程高手箴言》读书笔记 书名：编程高手箴言 作者：梁肇新 内容简介： 本书是作者十余年编程生涯中的技术和经验的总结。内容涵盖了从认识CPU、Windows运行机理、编程语言的运行机理，到代码的规范和风格、分析方法、调试方法...
vb.net和C#开发环境和开发效率的比较 当初我初学.net时也是以为没区别，仔细想了一下，害怕C#混淆我的c++和java，就选用了vb.net。现在主要使用vb.net，也少量使用了C#，就我的理解，给他们在使用上作些比较。 书写速度上的比较：C#是类C的，代码较少，...
如果是初学C语言请看完 一些成功人士的心得 如果是初学C语言请看完 一些成功人士的心得 转自程先的专栏 今天，我能够自称是一个混IT的人，并能以此谋生，将来大家能一次谋生，都要感谢两个人：克劳德.香农和约翰.冯.诺依曼，是他们发现了所有的数字化信息...
如果是初学C语言请看完一些成功人士的心得 不过，键盘敲得快不代表你的程序就写得好，否则学校只要每个学生发一份盲打联系软件，四年毕业后，个个都是程序高手了！ 好了，你输了一个程序进电脑了，锻炼了手部肌肉，也运行出了结果，愉悦了身心，就此满足了？...
转载：如果是初学C语言请看完 一些成功人士的心得 不过，键盘敲得快不代表你的程序就写得好，否则学校只要每个学生发一份盲打联系软件，四年毕业后，个个都是程序高手了！ 好了，你输了一个程序进电脑了，锻炼了手部肌肉，也运行出了结果，愉悦了身心，就此满足了？...
二次线性插值的应用! 上次讲到了用DIB方法来获取图像的像素。从这次开始将如果运用已经得到的像素来处理图像。...这次我把自己的程序中所用的二次线性插值的算法公布给大家，希望对各位要使用VB写类似程序的朋友有所帮助。 程序中用到
转自程先的专栏:如果是初学C语言请看完 一些成功人士的心得 如果是初学C语言请看完 一些成功人士的心得 转自程先的专栏 今天，我能够自称是一个混IT的人，并能以此谋生，将来大家能一次谋生，都要感谢两个人：克劳德.香农和约翰.冯.诺依曼，是他们发现了所有的数字化信息...
