㈠ VB6.0如何實現將excel數據導入mssql資料庫中
這里是我用的代碼，估計對你有用：
'On Error Resume Next
Dim fileadd As String
CommonDialog1.ShowOpen
CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '選擇你要的文件
fileadd = CommonDialog1.FileName
If fileadd = "" Then Exit Sub
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
Set xlBook = xlApp.Workbooks.Open(fileadd) '打開已經存在的EXCEL工件簿文件
xlApp.Visible = False ' = True '設置EXCEL對象可見（或不可見）
Set xlSheet = xlBook.Worksheets(1) '設置活動工作表
For R = 1 To 99999 '行循環
If LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) <> "" Then
sybw.Adodc3.Refresh
sybw.Adodc3.Recordset.Find "ShiGongBuWei_Name='" & LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) & "'"
If sybw.Adodc3.Recordset.EOF Then
sybw.Adodc3.Recordset.AddNew
sybw.Adodc3.Recordset!ShiGongBuWei_Name = LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1)))
sybw.Adodc3.Recordset!FenXiangGongCheng_ID = bb
sybw.Adodc3.Recordset.Update
sybw.Adodc3.Refresh
' Call log(MM_Users_NameTrue, "增加了施工部位", MM_Companys_ID)
Else
' MsgBox " 施工部位重復！ ", vbOKOnly, "用戶信息"
End If
Else
R = 99999 + 1
End If
Next R
xlApp.DisplayAlerts = False '不進行安全提示 '
Set xlSheet = Nothing '
Set xlBook = Nothing '
xlApp.Quit '
Set xlApp = Nothing
㈡ VB 怎麼讀取 mysql 資料庫
ServerIP
=
SQL的伺服器IP
也可以是
伺服器的名稱
DB_PWD
=
"sa"
DB_User
=
"sa"
DB_Name
=
SQL資料庫表名
SqlStr
=
"Provider
=
SQLOLEDB.1;Password
="
&
DB_PWD
&
";Persist
Security
Info
=
True;User
ID
="
&
DB_User
&
";Initial
Catalog="
&
DB_Name
&
";Data
Source="
&
ServerIP
Public
DBCnn
As
New
ADODB.Connection
DBCnn.Open
SqlStr
DBCnn就可以做連接字元串了
㈢ VB如何連接SQL資料庫
一個用VB連接SQL資料庫連接的模塊2007年01月22日 星期一 下午 05:29下面是一個連接資料庫的模塊，大家可以使用它來連接SQL資料庫，使用起來比ADO控制項還簡單：
代碼如下：
Public rsNew As ADODB.Recordset
Public CnNew As ADODB.Connection
Public addFlag As Boolean
'連接資料庫
Public Function OpenCn() As Boolean
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
CnNew.ConnectionTimeout = 25
CnNew.Provider = "sqloledb"
CnNew.Properties("data source").value = "" 'SQL伺服器的名
CnNew.Properties("initial catalog").value = "pubs"'庫名
CnNew.Properties("integrated security").value = "SSPI"'登陸類型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"
CnNew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "資料庫末連接"
Call MsgBox(Mag, vbOKCancel, "錯誤:資料庫連接")
addFlag = False
End
End Function
Public Sub Clocn()
'閉關資料庫
On Error Resume Next
If CnNew.State <> adStateClosed Then CnNew.Close
Set CnNew = Nothing
End Sub
Public Function OpenRs(ByVal strSql As String) As Boolean
'連接資料庫記錄集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New ADODB.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "資料庫數據集末連接"
Call MsgBox(Mag, vbOKOnly, "錯誤:資料庫連接")
OpenRs = False
End
End Function
Public Sub cloRs()
'閉關數據集
On Error Resume Next
If rsNew.State <> adStateClosed Then rsNew.Close
Set rsNew = Nothing
End Sub
只要在你的標准模塊中加入該代碼，你就可以使用其中的函數來連接數據源了。
㈣ 用VB做怎麼將Excel數據導入SQL資料庫中
用VB做，將Excel數據導入SQL資料庫中：
法一:可以試著用VB書寫一段調用SQL Server資料庫DTS的代碼,然後就可以像直接使用DTS進行數據導入一樣就行Excel與SQL Server數據之間的遷移了。
方法二:可以用VB來 作EXCEL,然後一條數據一條數據的 入到資料庫中,這種方法不 使用,因為VB 作EXCEL是非常慢的,如果數據量太大,很有可能會造成宕機。
㈤ 用vb怎麼連接SQL資料庫
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你資料庫的名稱"
Dim strquery As String
strquery = "select * from Table_Users where 用戶名='" & Trim(Text1.Text) & "'and 密碼= '" & Trim(Text2.Text) & "'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
這樣應該就ok了 希望能幫到你
㈥ VB怎麼連接SQL Server資料庫
VB連接資料庫方式主要有兩種，一是通過ODBC介面，ODBC是windows系統里提供的介面，專門連接資料庫的，可以連接多種資料庫，在應用電腦的設置ODBC，也就DSN數據源（下面說到的），連接到伺服器。
第二種就是ADO方式，
VB使用ADO資料庫可以分為有源資料庫和無源資料庫，即是否使用了DSN數據源，如下例：
1、在連接資料庫前首先要在VB菜單中「工程」-「引用」從中選擇 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6兩個組件，這是在連接數據前所必做的工作。
2、接下來定義ADO的連接對象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一種方法採用的是無源的資料庫連接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名,密碼 from login where 用戶名='" & Trim(Combo1.Text) & "' And 密碼='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("請重新登錄", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
這是第二種方法連接資料庫的方法，這一種方法是採用有源的方法與資料庫連接的方法，代碼如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用戶名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
VB使用ADO資料庫可以分為有源資料庫和無源資料庫，即是否使用了DSN數據源，如下例：
1、在連接資料庫前首先要在VB菜單中「工程」-「引用」從中選擇 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6兩個組件，這是在連接數據前所必做的工作。
2、接下來定義ADO的連接對象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一種方法採用的是無源的資料庫連接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名,密碼 from login where 用戶名='" & Trim(Combo1.Text) & "' And 密碼='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("請重新登錄", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
這是第二種方法連接資料庫的方法，這一種方法是採用有源的方法與資料庫連接的方法，代碼如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用戶名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
㈦ vb的sql資料庫連接
先建一個工程,建立一個form1,form1中的代碼如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
Text1 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME")
Text3 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD")
Text2 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME")
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
Exit Sub
strErrMag:
Mag = "資料庫連接錯誤，在下列的窗體中請輸入正確的信息！"
MsgBox Mag, vbOKOnly, "錯誤:資料庫連接"
Me.Enabled = False
Load Form2
Form2.Show
End Sub
再建一個form2,form2的代碼如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
MsgBox ("資料庫連接成功！"), vbInformation + vbOKOnly, "提示信息"
Set CnNew = Nothing
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME", Trim(Text1)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD", Trim(Text3)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME", Trim(Text2)
Form1.Enabled = True
Unload Me
Exit Sub
strErrMag:
Mag = "資料庫連接錯誤，在下列的窗體中請輸入正確的信息！"
MsgBox Mag, vbOKOnly, "錯誤:資料庫連接"
End Sub
試試看吧,這個把SQL的登錄名與密碼放在注冊表中,同樣也可以在注冊表中放軟體的試用期限!
㈧ 如何在vb中導入sql server的數據
我用的是ADO控制項連接的
給你個最簡單的例子
Private Sub Form_load()
s1 = "人" + "員表"
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
Adodc1.RecordSource = "select 編號,姓名,年齡, 學歷,年級,入學時間 from " & s1 & " order by '編號'"
Adodc1.Refresh
Form1.Show
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "無人員記錄", vbOKOnly, "提示信息"
Else
Set DataGrid1.DataSource = Adodc1
End If
End Sub
祝你成功！