请高手帮纠正VB运行的4处错误。

2010-07-12 09:40:14 132 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb生成随机数一·实验目的生成随机数。二·实验内容 1. 建立窗体，画出三个label，分别写上：“请输入随机数下界”，“生成随机数上界”，“生成的随机数”。画出一个command按钮，输入“生成随机数”。画出三个text窗体。 2. 编写程序如下： Private sub command1_click() Dim m as integer Dim n as integer 阅读详情

请高手帮纠正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

...全文