VB.NET怎样连接数据库

VB.NET怎样连接数据库

Imports System.Data
Imports System.Data.SqlClient

Module 连接数据库
Public Server1 As String
Public DataBase1 As String
Public Function GetTable(ByVal sqlstr$) As DataTable
Dim SqlConn As SqlConnection = New SqlConnection("server=" & Server1 & ";database=" & DataBase1 & ";integrated security=true") '声明这些SQL的类
Dim facDataAdapter As SqlDataAdapter = New SqlDataAdapter
Dim SqlComm As SqlCommand = New SqlCommand(sqlstr, SqlConn)
facDataAdapter.SelectCommand = SqlComm
Dim dt As DataTable = New DataTable
facDataAdapter.Fill(dt)
Return dt
End Function
End Module

你看看下面这个例子,数据库Access
Imports System.Data.OleDb
Public Class ex_1
Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\App_data\Class.mdb")
Dim MyCommand As OleDbCommand
Dim MyReader As OleDbDataReader
Dim dbset As New DataSet
Dim dataA As OleDbDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MyConnection.Open()
MyCommand1 = New OleDbCommand("Select * from info where cn='002'", MyConnection)
MyReader = MyCommand.ExecuteReader()
While MyReader.Read()
TextBox1.Text = MyReader("tutor")
End While
MyConnection.Close()
MyCommand1.Dispose()
MyReader.Close()
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！