关于连接SQL数据库的代码

[wxfjx1014]

初学vb.net,您看看哪错了,指明一下,谢谢

Imports System.Data.SqlClient
--------------------------------------------------------------------------
Public Class Form1
Dim ConnSTR As String = "Data Source=WXFJX;Initial Catalog=KM_TijianPaidui;Integrated Security=True"
Dim Conn As New SqlConnection(ConnSTR)
Dim Rs As New ADODB.Recordset
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Conn.Open()
End Sub
--------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SQL As String = "select * from tbl_customer where customerID ='" + TextBox2.Text.ToString + "'"
Rs.Open(SQL, Conn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
TextBox1.Text = Rs.Fields(0)
End Sub
End Class


系统提示:{"参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。"}

[bitsbird]

你用的什么教材？找本2.0的教材，现在都是ado.net不是ado了

[rtsp]

objRs.open(strComm,
strConn,
adOpenForwardOnly,
adLockReadOnly,
adCmdText);

objRs.MoveFirst();
while (objRs.EOF != true)
{
alert(objRs("ProductID")+"\t"
+objRs("ProductName")+"\t"
+objRs("UnitPrice"));
objRs.MoveNext();
}

objRs.Close
objRs = null;

[cyy1981]

ding vb 不懂

[wxfjx1014]

我以前是作vb的,后来需要用vb.net写程序
一楼的意思是我用的ado而不是ado.net?
二楼的建议我试一下,先谢过了!

[chuxue1342]

连接字符串没有写对:
Data Source=SQLDataSource; //SQL服务器名称
Initial Catalog=SQLInitialCatalog; //SQL数据库名
User ID=sa; //登陆用户名
Password=abc" //登陆密码

完整:
SqlConnection1.ConnectionString = "Data Source=SQLDataSource;Initial Catalog=SQLInitialCatalog;User ID=sa;Password=abc"

[CsdnBoom]

ado.net

Imports System.Data
Imports System.Data.SqlClient

Dim SqlConnection1 As New System.Data.SqlClient.SqlConnection
Dim SqlCommand1 As New System.Data.SqlClient.SqlCommand
Dim SqlDataReader1 As SqlDataReader

SqlConnection1.ConnectionString = "Data Source=SQLDataSource;Initial Catalog=SQLInitialCatalog;Persist Security Info=True;User ID=sa;Password=abc"
SqlCommand1.Connection = SqlConnection1
SqlConnection1.Open()
SqlCommand1.CommandText = "Select * from TableSysLayout where FormName='" & Me.Name & "'"
SqlDataReader1 = SqlCommand1.ExecuteReader

Do While SqlDataReader1.Read
Text_userID = SqlDataReader1.GetString(SqlDataReader1.GetOrdinal("UserID"))
Loop

SqlDataReader1.Close()

SqlCommand1 = Nothing
SqlConnection1.Close()
SqlConnection1 = Nothing

[wxfjx1014]

原因是我的sql语句中多了一个空格!!!