Примеры работы с SQL из Visual Basic
Продолжение
Подключение к базе SQL
Private Sub Form_Load()
Call openTheDatabase
End Sub
Public Function openTheDatabase() As Boolean
Dim sConnectionString As String
Dim strSQLStmt As String
'строка подключения
sConnectionString = "PROVIDER = MSDASQL;driver={SQL Server};database=databasename ;server=servername;uid=;pwd=;"
strSQLStmt = "SELECT chvDealerName " & _
"From dbo.tblDealers Where chrVSCAcctNum = '90442001'"
TextBox1.Text = strSQLStmt
End Function
Строка подключения к SQL серверу
Protected Const SqlConnectionString As String = _
"Server=(local);" & _
"DataBase=;" & _
"Integrated Security=SSPI"
Для SQL Server Express строка подключения выглядит иначе
Protected Const SqlConnectionString As String = _
"Server=(local)\sqlexpress;" & _
"DataBase=;" & _
"Integrated Security=SSPI"
Создать базу данных SQL (VB.NET)
Dim sqlStatement As String = _
"IF EXISTS (" & _
"SELECT * " & _
"FROM master..sysdatabases " & _
"WHERE Name = 'HowToDemo')" & vbCrLf & _
"DROP DATABASE HowToDemo" & vbCrLf & _
"CREATE DATABASE HowToDemo"
Dim connection As New SqlConnection(connectionString)
' A SqlCommand object is used to execute the SQL commands.
Dim cmd As New SqlCommand(sqlStatement, connection)
connection.Open()
cmd.ExecuteNonQuery()
connection.Close()
Создать таблицу (VB.NET)
Dim strSQL As String = _
"USE HowToDemo" & vbCrLf & _
"IF EXISTS (" & _
"SELECT * " & _
"FROM HowToDemo.dbo.sysobjects " & _
"WHERE Name = 'Contact' " & _
"AND TYPE = 'u')" & vbCrLf & _
"BEGIN" & vbCrLf & _
"DROP TABLE HowToDemo.dbo.Contact" & vbCrLf & _
"END" & vbCrLf & _
"CREATE TABLE Contact (" & _
"ContactID Int NOT NULL," & _
"FirstName NVarChar(40) NOT NULL," & _
"LastName NVarChar(40) NOT NULL" & ")"
Dim dbConnection As New SqlConnection(connectionString)
' A SqlCommand object is used to execute the SQL commands.
Dim cmd As New SqlCommand(strSQL, dbConnection)
dbConnection.Open()
cmd.ExecuteNonQuery()
dbConnection.Close()
Скачать бесплатно
|
