老鐵們，大家好，相信還有很多朋友對于vb登錄界面連接數據庫和vb怎樣連接網上的數據庫的相關問題不太懂，沒關系，今天就由我來為大家分享分享vb登錄界面連接數據庫以及vb怎樣連接網上的數據庫的問題，文章篇幅可能偏長，希望可以幫助到大家，下面一起來看看吧！
VB如何連接訪問數據庫Access
1、Access中新建數據庫，名字為Database1.mdb。（注意：后綴為MDB,如果Access是2007版本的，保存時應另存為03版本的才可以，因為，VB無法直接支持07版的accdb后綴格式）
2、成功建立數據庫后會進入到數據表界面，這時就能輸入數據了，輸完以后按CTRL+S保存，輸入表名，這里表名為test，準備工作這樣就完成了。
3、把VB打開，然后新建標準exe。
4、在菜單里面找到工程→部件→勾選，MicrosoftADODataControl6.0MicrosoftHierarchicalFlexgridControl6.0勾選之后左側的工具欄里就多出兩個控件，就是ADODC控件和MSHFlexGrid控件。
5、選擇ADODC控件和MSHFlexGrid控件，在窗體的合適位置放入，如圖：
6、設置ADODC控件的屬性：右鍵窗體中ADODC1控件
ADODC屬性頁→通用→選擇使用連接字符串→點擊生成→選擇MicrosoftJet4.0OLEDBProvider點擊下一步→選擇之前準備好的數據庫→點擊測試連接，顯示測試成功則ok，確定。
ADODC屬性頁→記錄源→命令類型選擇2-adcmdtable，表或存儲過程名稱選擇之前建立的數據表test，點擊確定，ADODC屬性設置完成。
7、設置MSHFlexGrid控件的屬性：VB右側的屬性表里，找到datasource，選擇adodc1。
8、測試效果：菜單→運行→啟動（F5)，發現顯示的數據排列不是我們想要的行數和列數修改方法：
MSHFlexGrid屬性→通用→設置行和列，固定行和固定列，設置如圖。
MSHFlexGrid屬性→帶區→把列標題的√取消掉，設置如圖。
9、修改之后測試效果如下：
求VB連接數據庫實例
VB使用ADO數據庫可以分為有源數據庫和無源數據庫，即是否使用了DSN數據源，如下例：1、在連接數據庫前首先要在VB菜單中“工程”-“引用”從中選擇microsoftactiveXDataobjects2。6library和microsoftactiveXDataobjectsrecordset2。
6兩個組件，這是在連接數據前所必做的工作。2、接下來定義ADO的連接對象，如下所示：Setconn=NewADODB。ConnectionSetrs=NewADODB。Recordset第一種方法采用的是無源的數據庫連接方法conn。
ConnectionString="Driver={sqlserver};server=JSZX3-11;uid=sa;pwd=;database=wzc"conn。ConnectionTimeout=30conn。
Openrs。Open"select用戶名,密碼fromloginwhere用戶名='"&Trim(Combo1。Text)&"'And密碼='"&Trim(Text1。
Text)&"'",conn,adOpenStatic,adLockReadOnly,adCmdTextIfrs。EOF=TrueAndrs。BOFThenm=MsgBox("請重新登錄",vbExclamation)Text1。
Text=""Text1。SetFocusElseForm1。HideEndIfrs。Close這是第二種方法連接數據庫的方法，這一種方法是采用有源的方法與數據庫連接的方法，代碼如下所示：Setconn=NewADODB。
ConnectionSetrs=NewADODB。Recordsetconn。ConnectionString="DSN=login;uid=sa;pwd=;"conn。ConnectionTimeout=30conn。
Openrs。Open"select用戶名fromlogin",conn,adOpenStatic,adLockReadOnly,adCmdTextDimiAsStringFort=0ToVal(rs。
RecordCount)-1i=Trim(rs。Fields("用戶名")。Value)rs。MoveNextCombo1。AddItemiNexttrs。Close下面是連接數據庫具體代碼：PublicconnAsNewADODB。
ConnectionPublicrsAsNewADODB。RecordsetPublicaddFlagAsBooleanPublicFunctionOpenCn()AsBooleanDimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB。
Connectionconn。ConnectionTimeout=25conn。Provider="sqloledb"conn。Properties("datasource")。Value="127。
0。0。1"''服務器的名字conn。Properties("initialcatalog")。Value="chart"''庫名conn。Properties("integratedsecurity")。
Value="SSPI"''登陸類型conn。OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan''tconnect"CallMsgBox(mag,vbOKCancel,"Error:Dataconnect")addFlag=FalseEndEndFunctionPublicSubclocn()OnErrorResumeNextIfconn。
StateadStateClosedThenrs。CloneSetrs=Nothing。
VB向Access數據庫中插入數據
以下代碼能使用的前提是庫引用、和數據庫連接代碼正確:
兩種辦法，一種是用SQL，另一種是ADO
1、用SQL添加數據：
insertinto表名（字段1，字段2，字段3）
values（值01，值02，值03）
例如：
docmd.runsql"insertintoEmpTable(Name,age,Duty,Salary)values('王明',35,'外貿總監',12500)"
2、用ADO的辦法：
ADO比較復雜，給你一個完整的例子吧：
DimstrSqlfitjcAsString
strSqlfitjc="select*from*表"
SetRSfitjc=NewADODB.Recordset‘定義一個ADO連接，連進數據庫
RSfitjc.OpenstrSqlfitjc,cn,adOpenKeyset,adLockOptimistic’打開連接
RSfitjc.addnew'添加一個紀錄
RSfitjc.Fields("配件編號")=“style”‘給每個字段賦值
.Update’儲存賦值的新紀錄
.Close關閉連接
EndWith
vb怎么能連接到數據庫SQL的服務器
1、打開代碼窗口，添加引用：ImportsSystem.Data.SqlClient。
2、輸入以下代碼：“Publicconn1AsSqlConnection=NewSqlConnection_("server=192.168.1.79;InitialCatalog=student;UserID=panqe;PWD=shentai768@")”，vb就已經成功連接sql數據庫了。
3、代碼詳解：聲明關鍵字Public（因為是全局變量，所以用Public來聲明）。
4、連接參數。
5、如果SQL數據庫就在本機，則用以下代碼連接：("server=.;IntegratedSecurity=False;InitialCatalog=student;UserID=panqe;PWD=shentai768@")。6：如果代碼太長，影響可讀性，可以用空格加"_"后，回車換行。
VB中判斷是否成功連接數據庫
FunctionConnectToDataBase()asBoolean’定義一個連接數據庫的函數，返回值為連接成功與否OnErrorGoToDealErrSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=MSDASQL;driver={SQLServer};server=122.122.107.56,13000;uid=wa;pwd=gvwsgsg;database=reachDb;"ConnectToDataBase=TrueMsgBox"連接數據庫成功！"ExitFunctionDealErr:ConnectToDataBase=FalseMsgBox"連接數據庫失??！"EndEndFunction
OK，關于vb登錄界面連接數據庫和vb怎樣連接網上的數據庫的內容到此結束了，希望對大家有所幫助。
