vb数据库(VB数据库批量导入)

前沿拓展：

vb数据库

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

***.Open “PLUMN 库存上限 Single;”

cn.Execute “ALTER TABLE 库存表 ADD COLUMN ID COUNTER;”

cn.Close

Set cn = Nothing

End Sub

VB连接SQL server数据库 ADO方式：

一：根据常规提示；

二：代码方式连接数据库：

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控件的话，关闭打开的表即可，不需要关闭数据库连接，退出程序后，控件资源就会被释放。但在调试程序环境下，数据库会一直处于打开状态。

(adodc控件是ms对ado表现的一个封装，里面都会自己进行释放。)

用adodb，和用adodc控件不同。

http://www.360doc.com/content/15/1014/10/28106033_505530115.shtml //VB 中 ADO、 ADODB、 ADODC 的区别与联系(皮毛)

拓展知识：

vb数据库

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

Private Sub cmdOk_Click()

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

MsgBox "用户名或密码不能为空，请返回输入！", 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"

'向数据库HYDATA里面的ADMIN表添加窗体上文本框里面的内容。这里应该怎么写呢？

'谢谢了

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 这两个判断两次密码是否一至。。

各位帮我看看。

解析:

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")

这两句是以字符串方式建立一个数据库连接

db1.mdb就是access数据库名字

data 是站点中用来存放数据库的文件夹，这儿路径一定得对才行．

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')" conn3.Execute(into_db3)这句就是将获得的值插入数据库了，表3是数据库中的一张表，插入时注意对应字段．

conn3.Close

关闭数据库连接，**作完成后关闭数据库连接．

当然上面的语句都得在一对定界符<% %>之间．

你自己做时帮相应字段改了就可以了．

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

前沿拓展：

vb数据库

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

***.Open “PLUMN 库存上限 Single;”

cn.Execute “ALTER TABLE 库存表 ADD COLUMN ID COUNTER;”

cn.Close

Set cn = Nothing

End Sub

VB连接SQL server数据库 ADO方式：

一：根据常规提示；

二：代码方式连接数据库：

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控件的话，关闭打开的表即可，不需要关闭数据库连接，退出程序后，控件资源就会被释放。但在调试程序环境下，数据库会一直处于打开状态。

(adodc控件是ms对ado表现的一个封装，里面都会自己进行释放。)

用adodb，和用adodc控件不同。

http://www.360doc.com/content/15/1014/10/28106033_505530115.shtml //VB 中 ADO、 ADODB、 ADODC 的区别与联系(皮毛)

拓展知识：

vb数据库

分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:

Private Sub cmdOk_Click()

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

MsgBox "用户名或密码不能为空，请返回输入！", 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"

'向数据库HYDATA里面的ADMIN表添加窗体上文本框里面的内容。这里应该怎么写呢？

'谢谢了

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 这两个判断两次密码是否一至。。

各位帮我看看。

解析:

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")

这两句是以字符串方式建立一个数据库连接

db1.mdb就是access数据库名字

data 是站点中用来存放数据库的文件夹，这儿路径一定得对才行．

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')" conn3.Execute(into_db3)这句就是将获得的值插入数据库了，表3是数据库中的一张表，插入时注意对应字段．

conn3.Close

关闭数据库连接，**作完成后关闭数据库连接．

当然上面的语句都得在一对定界符<% %>之间．

你自己做时帮相应字段改了就可以了．

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