16,718
社区成员
发帖
与我相关
我的任务
分享
Dim daSelect As New SqlDataAdapter()
daSelect.SelectCommand = New SqlCommand()
daSelect.SelectCommand.Connection = Me.Connection
daSelect.SelectCommand.CommandText = "Select * from table1 where Keyid=@pTYPE"
daSelect.SelectCommand.Parameters.Clear()
daSelect.SelectCommand.Parameters.Add("@pTYPE", SqlDbType.VarChar).Value = Textbox1.text
'Fill
daSelect.Fill(xxxxxx)
Dim userid As String
userid = Textbox1.text
Dim conn As New SqlConnection("data source=liming;initial catalog=zls;uid=sa;pwd=;")
Dim asapter As New SqlDataAdapter("select * whereuserid=" & userid &" order by w.id", conn)
Dim mydataset As New DataSet()