16,717
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim cstring As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)"
Dim con As New SqlClient.SqlConnection(cstring)
Dim sql As String = "select * from manid"
Try
con.Open()
'MsgBox("连接成功!")
Catch ex As Exception
'MsgBox("不能连接!")
End Try
Dim sales As DataSet = New DataSet
Dim cmd As New SqlClient.SqlCommand(sql, con)
Dim myreader As SqlClient.SqlDataReader = cmd.ExecuteReader
While myreader.Read
TextBox1.Text = TextBox1.Text & myreader(0) & vbCrLf
End While
'cmd.ExecuteNonQuery()
'cmd.CommandText() = sql
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db.mdb"
Dim con As New OleDb.OleDbConnection(cstring)
Dim sql As String = "select * from bkstudent"
Try
con.Open()
'MsgBox("连接成功!")
Catch ex As Exception
'MsgBox("不能连接!")
End Try
Dim sales As DataSet = New DataSet
Dim cmd As New OleDb.OleDbCommand(sql, con)
Dim myreader As OleDbDataReader = cmd.ExecuteReader
While myreader.Read
TextBox1.Text = TextBox1.Text & myreader(0) & "-" & myreader(1) & "-" & myreader(2) & "-" & myreader(3) & vbCrLf
End While
'cmd.ExecuteNonQuery()
'cmd.CommandText() = sql
con.Close()
End Sub