ตัวอย่าง code ที่เรียน .net กับ อ.ธนัท ผุดกระจ่าง
สำหรับเชื่อมต่อฐานข้อมูลแบบพิมพ์ code
Option Strict On
Option Explicit On
Imports System
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Module Module1
Public Function fncconnectiondb() As SqlConnection
Dim mycon As String
Dim mycondb As New SqlConnection
Try
mycon = "Data Source=lab322\SQLExpress;Initial Catalog=Northwind;Integrated Security=True"
mycondb.ConnectionString = mycon
If mycondb.State = ConnectionState.Closed Then
mycondb.Open()
End If
Catch ex As Exception
'MessageBox.Show(ex.ToString)
MsgBox(ex.ToString)
End Try
Return mycondb
End Function
End Module
|