ส่วนภาพด้านล่างนี้ จะ Connect กับ Sql server แต่มัน Connect ไม่ได้ รบกวนผู้รู้ช่วยตอบหน่อยครับ (การ connect เกี่ยวกับการเขียนเป็นแบบ class ครับ) Code (VB.NET)
Imports System.Data
Imports System.Data.SqlClient
' สร้าง clsCommand เพื่อใช้เก็บโค้ดที่ใช้ร่วมกันในการติดต่อและจัดการกับฐานข้อมูล
Public Class clsCommand
' สร้าง object conn เพื่อใช้เก็บสถานการณ์เชื่อมต่อกับฐานข้อมูล
Public conn As New SqlConnection
'สร้าง เมธอด connectData เพื่อขอเรียกใช้ฐานข้อมูล
Private Sub connectData()
Dim sPath As String = "Data Source=MAKEVB\SQLEXPRESS;Initial Catalog=caraoke;Integrated Security=True;uid=sa; pwd=matco1234; "
If conn.State = ConnectionState.Open Then conn.Close()
conn.ConnectionString = sPath
conn.Open()
End Sub
' สร้าง เมธอด ExecuteNonQuery เพื่อ execute คำสั่ง SQL
Public Function ExcuteNonQuery(ByVal prmSQL As String) As Boolean
connectData()
Dim addCom As New SqlCommand
With addCom
.CommandType = CommandType.Text
.CommandText = prmSQL
.Connection = conn
.ExecuteNonQuery()
End With
Return True
End Function
End Class
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Public Class DBController
Dim myCon As SqlClient.SqlConnection
Dim myCMD As SqlCommand
Dim myDA As SqlDataAdapter
Dim ConnectionAddon As String = "Data Source=localhost\sqlexpress,1433;Initial Catalog=ABOOKWMS;User Id=sa;Password=1234"
Public Sub New(ByVal Addon)
Try
If Addon = "ConnectionAddon" Then
myCon = New SqlClient.SqlConnection(ConnectionAddon)
End If
Catch ex As Exception
MsgBox("Invalid ConnectionString")
End Try
End Sub
Public ReadOnly Property Connection() As SqlConnection
Get
Return myCon
End Get
End Property
Public Function OpenAddOn() As Boolean
Try
myCon = New SqlClient.SqlConnection(ConnectionAddon)
myCon.Open()
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Function Close() As Boolean
Try
myCon.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Function SelectCommandAddon(ByVal sql As String) As DataTable
Dim ds As New DataSet
Try
myCon = New SqlClient.SqlConnection(ConnectionAddon)
myCon.Open()
myDA = New SqlDataAdapter(sql, myCon)
myDA.Fill(ds, "RetTable")
Return ds.Tables("RetTable")
Catch ex As Exception
Return Nothing
End Try
End Function
Public Function OtherCommandAddon(ByVal sql As String) As Boolean
Try
myCon = New SqlClient.SqlConnection(ConnectionAddon)
myCon.Open()
myCMD = New SqlCommand(sql, myCon)
myCMD.ExecuteNonQuery()
myCon.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class
Load balance : Server 00
