Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim Conn As New SqlConnection 'ประกาศตัวแปรออบเจ็กต์ Connection
Dim da As SqlDataAdapter
Dim ds As DataSet
Private Sub btnSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSQL.Click
Dim strConn As String
strConn = "Data Source=.\SQLEXPRESS;AttachDbFilename='C:\Program Files\" & _
"Microsoft SQL Server\MSSQL10.SQLEXPRESS\MSSQL\Data\db_stp.mdf';" & _
"Integrated Security=True;Connect Timeout=30;User Instance=True"
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
Try
Dim strSQL As String
strSQL = txtSQL.Text
ds.Clear()
da = New SqlDataAdapter(strSQL, Conn)
da.Fill(ds, "MyData")
dgvSQL.DataSource = ds.Tables("myData")
Conn.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
con = New SqlConnection(strCon )
If con.State = ConnectionState.Closed Then
con.Open()
End If
ลองเอาไปเลือกใช้ดูครับ
Date :
2011-10-20 10:30:29
By :
unlum
No. 14
Guest
Imports System.Data นำเข้าข้อมูลที่เกี่ยวกับการจัดการฐานข้อมูลทั้งหมด
Imports System.Data.SqlClient นำเข้าข้อมูลการเชื่อมต่อฐานข้อมูล สำหรับฐานข้อมูล SQL Server
Public Class Form1 ชื่อห้องที่สร้างฐานข้อมูล
Dim connObj As New SqlConnection ประกาศตัวแปรออบเจ็กต์ sqlConnection ชื่อ ConnObj
Dim da As SqlDataAdapter ประกาศตัวแปรชื่อ da
Dim ds As New DataSet()ประกาศตัวแปรชื่อ ds
Private Sub btnExecSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExecSQL.Click
Dim strConn As String = ""
strConn = "Data Source=B105_A03;Initial Catalog=db_all;User ID=sa;Password=12345"
If connObj.State = ConnectionState.Open Then if เอาไว้สำหรับมีคนเชื่อมต่อเยอะ ๆ ถ้าไม่มีคนใช้ร่วมกัน ไม่ต้องใส่ก็ได้
connObj.Close() ปิดการเชื่อมต่อ
Else
connObj.ConnectionString = strConn เป็นการเชื่อมต่อฐานข้อมูลแล้ว
connObj.Open() เปิดการเชื่อมต่อ
End If จบเงื่อนไข
Try เอาไว้สำหรับตรวจสอบ error ที่เราไม่สามารถตรวจสอบได้ว่ามันจะerror ตรงไหน แต่มันจะไปทำงานหลัง Catch
'เริ่มต้นดูดข้อมูลด้วย DataAdapter
Dim strSQL As String = txtSQL.Text ตัวแปรที่เป็นข้อความ มาเก็บไว้ที่กล่อง
da = New SqlDataAdapter(strSQL, connObj)
'เติมข้อมูลลงไปในออบเจ็กต์ DataSet
ds.Tables.Clear()
da.Fill(ds, "MyQuery") เอาข้อมูลไปใส้ไว้ในดาต้าเซ็ต แล้วเอาไปเก็ยไวในมายคิรี่
dgvSQL.DataSource = ds.Tables("MyQuery")
txtResult.Text = "สำเร็จ : มีข้อมูลทั้งหมด " & ds.Tables("MyQuery").Rows.Count.ToString & " แถว"
Catch ex As Exception
MessageBox.Show("ผิดพลาด", ex.Message)
End Try
End Sub
End Class
Imports System.Data.SqlClient นำเข้าข้อมูล
Public Class From1
Dim cn As SqlConnection
------------------------------
Private Sub From1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New SqlConnection
With cn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = Module1.strcon
.Open()
End With
End Sub
Load balance : Server 03
