前沿拓展：

vb數(shù)據(jù)庫(kù)

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

***.Open “PLUMN 庫(kù)存上限 Single;”

cn.Execute “ALTER TABLE 庫(kù)存表 ADD COLUMN ID COUNTER;”

cn.Close

Set cn = Nothing

End Sub

VB連接SQL server數(shù)據(jù)庫(kù) ADO方式：

一：根據(jù)常規(guī)提示；

二：代碼方式連接數(shù)據(jù)庫(kù)：

Dim strTemp As String

strTemp = " select top 1 * from dbo.Hos_recipe_zd_temp where number = '" + Trim(Text1.Text) + "'" + " order by flow desc"

Debug.Print strTemp

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = strTemp

Adodc1.Refresh

Text2.Text = Adodc1.Recordset("code") & "|" & Adodc1.Recordset("caption")

如果用ado控件的話，關(guān)閉打開的表即可，不需要關(guān)閉數(shù)據(jù)庫(kù)連接，退出程序后，控件資源就會(huì)被釋放。但在調(diào)試程序環(huán)境下，數(shù)據(jù)庫(kù)會(huì)一直處于打開狀態(tài)。

(adodc控件是ms對(duì)ado表現(xiàn)的一個(gè)封裝，里面都會(huì)自己進(jìn)行釋放。)

用adodb，和用adodc控件不同。

http://www.360doc.com/content/15/1014/10/28106033_505530115.shtml //VB 中 ADO、 ADODB、 ADODC 的區(qū)別與聯(lián)系(皮毛)

拓展知識(shí)：

vb數(shù)據(jù)庫(kù)

分類: 電腦/網(wǎng)絡(luò) >> 程序設(shè)計(jì) >> 其他編程語(yǔ)言
問題描述:

Private Sub cmdOk_Click()

If Admin_Name.Text = "" Or Admin_PassWord.Text = "" Or Admin_RegPassWord.Text = "" Then

MsgBox "用戶名或密碼不能為空，請(qǐng)返回輸入！", vbExclamation + vbOKOnly, "提示！"

Admin_Name.SetFocus

ElseIf Admin_PassWord.Text <> Admin_RegPassWord.Text Then

MsgBox "兩次密碼輸入不一致，重新輸入！", vbExclamation + vbOKOnly, "提示！"

Admin_PassWord.Text = ""

Admin_RegPassWord.Text = ""

Admin_PassWord.SetFocus

Else

Dim Conn As New ADODB.Connection

Dim StrSql As String

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb" & ";Mode=ReadWrite;Persist Security Info=False"

'向數(shù)據(jù)庫(kù)HYDATA里面的ADMIN表添加窗體上文本框里面的內(nèi)容。這里應(yīng)該怎么寫呢？

'謝謝了

Conn.Close

End If

End Sub

================================

ACCESS名“HyData” 管理員表名：“Admin”里面的表頭是：

Admin_ID,Admin_User,Admin_Pwd,Admin_HomeTel,Admin_Mobile

==================================

AddFrom窗體的文本框

Admin_Name,Admin_PassWord,Admin_RegPassword,Admin_HomeTel,Admin_Mobile.

=其中：Admin_PassWord,Admin_RegPassword 這兩個(gè)判斷兩次密碼是否一至。。

各位幫我看看。

解析:

xm= Request.Form("xm")

xb= Request.Form("xb")

ah= Request.Form("ah")

qqh= Request.Form("qqh")

set conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (*.mdb);DBQ="&Server.MapPath("data\db1.mdb")

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')"

conn3.Execute(into_db3)

conn3.Close

解釋下：

上面的

xm= Request.Form("xm")

xb= Request.Form("xb")

ah= Request.Form("ah")

qqh= Request.Form("qqh") 是從表單中的文本框獲取值

set conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (*.mdb);DBQ="&Server.MapPath("data\db1.mdb")

這兩句是以字符串方式建立一個(gè)數(shù)據(jù)庫(kù)連接

db1.mdb就是access數(shù)據(jù)庫(kù)名字

data 是站點(diǎn)中用來(lái)存放數(shù)據(jù)庫(kù)的文件夾，這兒路徑一定得對(duì)才行．

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')" conn3.Execute(into_db3)這句就是將獲得的值插入數(shù)據(jù)庫(kù)了，表3是數(shù)據(jù)庫(kù)中的一張表，插入時(shí)注意對(duì)應(yīng)字段．

conn3.Close

關(guān)閉數(shù)據(jù)庫(kù)連接，**作完成后關(guān)閉數(shù)據(jù)庫(kù)連接．

當(dāng)然上面的語(yǔ)句都得在一對(duì)定界符<% %>之間．

你自己做時(shí)幫相應(yīng)字段改了就可以了．

還有不懂可以加QQ***********

前沿拓展：

vb數(shù)據(jù)庫(kù)

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

***.Open “PLUMN 庫(kù)存上限 Single;”

cn.Execute “ALTER TABLE 庫(kù)存表 ADD COLUMN ID COUNTER;”

cn.Close

Set cn = Nothing

End Sub

VB連接SQL server數(shù)據(jù)庫(kù) ADO方式：

一：根據(jù)常規(guī)提示；

二：代碼方式連接數(shù)據(jù)庫(kù)：

Dim strTemp As String

strTemp = " select top 1 * from dbo.Hos_recipe_zd_temp where number = '" + Trim(Text1.Text) + "'" + " order by flow desc"

Debug.Print strTemp

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = strTemp

Adodc1.Refresh

Text2.Text = Adodc1.Recordset("code") & "|" & Adodc1.Recordset("caption")

如果用ado控件的話，關(guān)閉打開的表即可，不需要關(guān)閉數(shù)據(jù)庫(kù)連接，退出程序后，控件資源就會(huì)被釋放。但在調(diào)試程序環(huán)境下，數(shù)據(jù)庫(kù)會(huì)一直處于打開狀態(tài)。

(adodc控件是ms對(duì)ado表現(xiàn)的一個(gè)封裝，里面都會(huì)自己進(jìn)行釋放。)

用adodb，和用adodc控件不同。

http://www.360doc.com/content/15/1014/10/28106033_505530115.shtml //VB 中 ADO、 ADODB、 ADODC 的區(qū)別與聯(lián)系(皮毛)

拓展知識(shí)：

vb數(shù)據(jù)庫(kù)

分類: 電腦/網(wǎng)絡(luò) >> 程序設(shè)計(jì) >> 其他編程語(yǔ)言
問題描述:

Private Sub cmdOk_Click()

If Admin_Name.Text = "" Or Admin_PassWord.Text = "" Or Admin_RegPassWord.Text = "" Then

MsgBox "用戶名或密碼不能為空，請(qǐng)返回輸入！", vbExclamation + vbOKOnly, "提示！"

Admin_Name.SetFocus

ElseIf Admin_PassWord.Text <> Admin_RegPassWord.Text Then

MsgBox "兩次密碼輸入不一致，重新輸入！", vbExclamation + vbOKOnly, "提示！"

Admin_PassWord.Text = ""

Admin_RegPassWord.Text = ""

Admin_PassWord.SetFocus

Else

Dim Conn As New ADODB.Connection

Dim StrSql As String

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb" & ";Mode=ReadWrite;Persist Security Info=False"

'向數(shù)據(jù)庫(kù)HYDATA里面的ADMIN表添加窗體上文本框里面的內(nèi)容。這里應(yīng)該怎么寫呢？

'謝謝了

Conn.Close

End If

End Sub

================================

ACCESS名“HyData” 管理員表名：“Admin”里面的表頭是：

Admin_ID,Admin_User,Admin_Pwd,Admin_HomeTel,Admin_Mobile

==================================

AddFrom窗體的文本框

Admin_Name,Admin_PassWord,Admin_RegPassword,Admin_HomeTel,Admin_Mobile.

=其中：Admin_PassWord,Admin_RegPassword 這兩個(gè)判斷兩次密碼是否一至。。

各位幫我看看。

解析:

xm= Request.Form("xm")

xb= Request.Form("xb")

ah= Request.Form("ah")

qqh= Request.Form("qqh")

set conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (*.mdb);DBQ="&Server.MapPath("data\db1.mdb")

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')"

conn3.Execute(into_db3)

conn3.Close

解釋下：

上面的

xm= Request.Form("xm")

xb= Request.Form("xb")

ah= Request.Form("ah")

qqh= Request.Form("qqh") 是從表單中的文本框獲取值

set conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (*.mdb);DBQ="&Server.MapPath("data\db1.mdb")

這兩句是以字符串方式建立一個(gè)數(shù)據(jù)庫(kù)連接

db1.mdb就是access數(shù)據(jù)庫(kù)名字

data 是站點(diǎn)中用來(lái)存放數(shù)據(jù)庫(kù)的文件夾，這兒路徑一定得對(duì)才行．

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')" conn3.Execute(into_db3)這句就是將獲得的值插入數(shù)據(jù)庫(kù)了，表3是數(shù)據(jù)庫(kù)中的一張表，插入時(shí)注意對(duì)應(yīng)字段．

conn3.Close

關(guān)閉數(shù)據(jù)庫(kù)連接，**作完成后關(guān)閉數(shù)據(jù)庫(kù)連接．

當(dāng)然上面的語(yǔ)句都得在一對(duì)定界符<% %>之間．

你自己做時(shí)幫相應(yīng)字段改了就可以了．

還有不懂可以加QQ***********