Tài liệu Kết nối dữ liệu từ SQL 2005 sang Visual Basic 2005 pdf

Kết nối dữ liệu từ SQL 2005 sang Visual Basic 2005 Nguồn : forum.t3h.vn Private Sub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.Click Dim con

Kết nối dữ liệu từ SQL 2005 sang Visual Basic 2005

Nguồn : forum.t3h.vn

Private Sub Button1_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim conn As New

OleDb.OleDbConnection("Provider=SQLNCLI;Server=.\SQLEXP RESS;Database=TênData; Uid=sa; Pwd=MậtKhau;")

conn.Open()

Dim cmd As New OleDb.OleDbCommand("CREATE TABLE persons ( " & _

"AutoId int identity ," & _

"Id int NOT NULL," & _

"Name NVarchar(50)," & _

"BirthDate datetime," & _

"IdCountry int," & _

"CONSTRAINT [pk_AutoId] PRIMARY KEY

(AutoId)) ", conn)

Try

cmd.ExecuteNonQuery()

Catch ex As OleDb.OleDbException

MessageBox.Show(ex.Message,

"OleDbException")

Catch ex As Exception

MessageBox.Show(ex.Message,

"GeneralException")

End Try

conn.Close()

End Sub