Public conn As SqlConnection
Public cmd As New SqlCommand
'数据库打开
Public Sub SQLOpen()
conn = New SqlConnection
conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True"
conn.Open()
End Sub
'数据库关闭
Public Sub SQLClose()
conn.Close()
End Sub
dim SQL as string
Call SQLOpen()
SQL = "select * from *****"
cmd = New SqlCommand(SQL, conn)
dr = cmd.ExecuteReader()
Do While dr.Read
XXX=dr("XXX")
End If
Loop
Call SQLClose()