對應的textbox也跟著變：點擊datagrid裡面記錄時
Ⅱ VB.net中如何調用帶密碼的Access資料庫
"Provider=Microsoft.jet.oledb.4.0;data source=" & "含路徑的資料庫文件" & ";Persist Security Info=False
;jet oledb:database password=" & "資料庫密碼"
Ⅲ vb.net連接access資料庫問題
1，使用ADO connection對象
首先，要建立ADO引用，定義connection這個類，然後實例化對象。
代碼完成如下：
<spanstyle="font-size:18px;">DimobjCnAsNewConnection,objRsAsNewRecordset
objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&"實例01.mdb"
objCn.Open
</span>
2，使用ODBC數據源
首先，打開電腦上的ODBC數據源，建立關系。
步驟如下：
1），打開電腦上的ODBC數據源
如下圖所示：
右擊創建連接，在右擊想要連接的屬性，之後的操作跟data控制項中使用字元串中的操作一致
Ⅳ vb.net 如何連接網路access
ACCSOURCE = "\\sever1\test.mdb" 'access的網路路經
Set conn = CreateObject("ADODB.Connection")
Set myrs = CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" & ACCSOURCE '123為密碼，access有密碼時需要輸入正確密碼
Ⅳ VB.NET連接Access資料庫報錯
你使用Access資料庫，在運行程序的電腦要安裝Access資料庫驅動程序，不然無法連接資料庫。另外，新的電腦C盤受限，你可以往其他硬碟分區如D盤寫數據。
Ⅵ vb.net讀取Access資料庫的方法
建立數據集，綁定到窗口。不會的話，把要用的表從數據集拖到窗口，再刪除就行了
提取方法
數據及名稱.表格名稱.rows（2）.item(3).tostring 就是了
Ⅶ VB.NET連接access資料庫文件的問題！（請根據詳細描述回答！）
工具-連接到資料庫 是根據資料庫的類型自動創建連接的 Provider=Microsoft.Jet.OLEDB.4.0是access資料庫的專有連接
oledbdataAdapter的新建連接可以適用於多種資料庫所以Provider不一樣,默認是連接sql的,SQLNCLI.1是連接SQL資料庫的Provider,因為連接資料庫的連接字元串是錯誤的所以連接失敗
Ⅷ 用VB如何訪問遠程Access資料庫
下面是轉貼的代碼,和訪問自己電腦上的ACCESS操作是一樣的,無非是登錄以及訪問的問題, 代碼中的192.168.2.36可以換成你需要的遠程電腦的IP.
========================
如果想每次都能自動通過驗證
在當前目錄上建立一inf文件，如Server.inf(其它格式文件也可)
文件內容如下：
net use \\192.168.2.36 "密碼" /user:administrator
Private Sub Form_Load()
Dim CnStr As String
Dim Fn As Integer
Fn = FreeFile
Open App.Path & "\Server.inf" For Input As #Fn
Line Input #Fn, ServerConn
Close #Fn
Shell (ServerConn)
CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \\192.168.2.36\c$\Program Files\Sygate\SON\Db\EventLog.mdb;Jet OLEDB:Engine Type=5"
Cn.Open CnStr
End Sub
Ⅸ VB.net如何調用ACCESS資料庫中的數據
使用向導設置資料庫連接的好處是省去寫代碼的過程，弊端是不易更改連接
使用代碼連接的好處是需要編寫代碼，但容易更改和維護
如：資料庫的位置變化，直接更改代碼顯然容易一些
代碼：
imports System.data.oledb /*引用命名空間*/
dim cnstr = "provider=microsoft.jet.oledb.4.0,data source=Access資料庫文件位置" /*定義連接字元串*/
dim cn as oledbconnection = new oledbconnection(cnstr) /*定義連接*/
cn.open() /*打開連接*/
sqlstr="select... from... 或其他sql"
dim cmd as sqlcommand=new sqlcommand()
cmd.commandtext=sqlstr
cmd.connection=cn
/*以上是建立執行語句*/
cmd.executenonquery() 不返回結果
cmd.executescalar() 返回單個結果
cmd.executereader() 返回結果集
/*以上是執行sql語句的方法*/
cn.close() /*關閉連接*/
你要做用戶驗證的話，先根據用戶名查詢對應的密碼，再判斷用戶輸入的密碼和查詢結果是不是相同就可以了
用cmd.executescalar() 這個方法
Ⅹ 用vb.net操作access資料庫
mports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Inherits Form
Private components As System.ComponentModel.Container = Nothing
Private WithEvents lastrec As Button
Private WithEvents nextrec As Button
Private WithEvents previousrec As Button
Private WithEvents firstrec As Button
Private t_books As TextBox
Private t_nl As TextBox
Private t_xb As TextBox
Private t_xm As TextBox
Private t_id As TextBox
Private l_books As Label
Private l_nl As Label
Private l_xb As Label
Private l_xm As Label
Private l_id As Label
Private label1 As Label
Private myDataSet As DataSet
Private WithEvents button1 As Button
Private WithEvents button2 As Button
Private WithEvents button3 As Button
Private WithEvents button4 As Button
Private myBind As BindingManagerBase
Public Sub New ( )
MyBase.New ( )
GetConnected ( )
InitializeComponent ( )
End Sub
'清除在程序中使用過的資源
Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose ( )
End If
End If
MyBase.Dispose ( disposing )
End Sub
Public Sub GetConnected ( )
'創建一個數據連接
Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;
Data Source = db.mdb "
Dim myConn As OleDbConnection = New OleDbConnection ( )
myConn.ConnectionString = strCon
Dim strCom As String = " SELECT * FROM person "
'創建一個 DataSet
myDataSet = New DataSet ( )
myConn.Open ( )
'通過OleDbDataAdapter對象得到一個數據集
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter
( strCom , myConn )
'把Dataset綁定books數據表
myCommand.Fill ( myDataSet , "person" )
'關閉此數據連接
myConn.Close ( )
End Sub
'插入數據記錄操作代碼
Private Sub button2_Click (ByVal sender As Object , _
ByVal e As System.EventArgs) Handles button2.Click
'判斷所有欄位是否添完，添完則執行，反之彈出提示
If ( t_id.Text <> "" And t_xm.Text <> ""
And t_xb.Text <> "" And t_nl.Text <> ""
And t_books.Text <> "" ) Then
Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;
Data Source = db.mdb"
Dim myConn As OleDbConnection = New OleDbConnection ( myConn1 )
myConn.Open ( )
Dim strInsert As String = " INSERT INTO person ( id , xm , xb , nl
, zip ) VALUES ( " & _
t_id.Text + " , '" & _
t_xm.Text + "' , '" & _
t_xb.Text + "' , " & _
t_nl.Text + " , " & _
t_books.Text + ")"
Dim inst As OleDbCommand = New OleDbCommand ( strInsert , myConn )
inst.ExecuteNonQuery ( )
myConn.Close ( )
myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( )
myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( )
myDataSet.Tables ( "person" ).AcceptChanges ( )
Else
MessageBox.Show ( "必須填滿所有欄位值！" , "錯誤！" )
End If
End Sub