|
Примеры работы с SQL из Visual Basic
Продолжение
Найти таблицы внутри Dataset (VB.NET)
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connetionString As String
Dim connection As SqlConnection
Dim command As SqlCommand
Dim adapter As New SqlDataAdapter
Dim ds As New DataSet
Dim tables As DataTable
Dim i As Integer
Dim sql As String
connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
sql = "Your SQL Statement Here"
connection = New SqlConnection(connetionString)
Try
connection.Open()
command = New SqlCommand(sql, connection)
adapter.SelectCommand = command
adapter.Fill(ds, "SQL Temp Table")
adapter.Dispose()
command.Dispose()
connection.Close()
For Each tables In ds.Tables
MsgBox(tables.TableName)
Next
Catch ex As Exception
MsgBox("Can not open connection ! ")
End Try
End Sub
End Class
Подключение Visual Basic 6 к MS SQL Server 2000
Private Sub Command1_Click()
Dim MyConnObj As New ADODB.Connection 'ADODB Connection Object
Dim myRecSet As New ADODB.Recordset 'Recordset Object
Dim sqlStr As String ' String variable to store sql command
MyConnObj.CursorLocation = adUseClient
MyConnObj.Open "Provider=MSDASQL; DRIVER=Sql Server; SERVER=servant-5dc1c25; DATABASE=sample; UID=dborces; PWD=Ga4yegzy;"
'MyConnObj.Open
Set myRecSet = New ADODB.Recordset
sqlStr = "select * from Employee"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
MsgBox "Total Number of records = " & myRecSet.RecordCount
Dim i As Integer 'variable to keep count
i = 1
Print "#"; Tab; "ID"; Tab; "Name"; Tab; "Salary"
Print ""
While Not myRecSet.EOF ' Loop until endd fo file is reached
Print i; Tab; myRecSet(0); Tab; myRecSet(1); Tab; myRecSet(2)
'0- 1st filed, 1- 2nd Field and so on...
myRecSet.MoveNext 'Moves the RecordSet pointer to the next position
i = i + 1
Wend
MyConnObj.Close
End Subc
Скачать бесплатно
|
|
