vbaccess网络源代码（vba源代码网站）

今天给各位分享vbaccess网络源代码的知识，其中也会对vba源代码网站进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB连接ACCESS搜索代码要怎么写
• 2、怎么用VB读Access数据库，给点代码
• 3、求VB+access的登录源代码及说明....
• 4、vb连接access数据库代码详细解释

VB连接ACCESS搜索代码要怎么写

Form1.Adodc1.RecordSource = "select * from 客户资料 where 客户编号='" + Text1.Text + "'"

Form1.Adodc1.refresh

If Form1.Adodc1.Recordset.RecordCount 0 Then

Form1.RText1(0).Text = Form1.Adodc1.Recordset.Fields("客户编号")

Form1.RText1(4).Text = Form1.Adodc1.Recordset.Fields("客户名")

Form1.RText1(5).Text = Form1.Adodc1.Recordset.Fields("服务地址")

怎么用VB读Access数据库，给点代码

你一个示例,这个是用户登录系统

'准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录

'点工程-引用 选中 Microsoft Activex Data Objects 2.1 Library

'控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()

Dim s As String

Dim Conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"

'请将数据库名及路径换成你的实际数据库名及路径

Dim UserName As String

Dim Password As String

s = Text1.Text

If s = "1" Or s = "2" Then

UserName = InputBox("请输入用户名")

Password = InputBox("请输入用户密码")

sql = "Select * From [UserInfo] where User='" UserName "'"

'UserInfo请换成你的实际数据表名

Rs.Open sql, Conn, 1, 3

If Rs.EOF Then

MsgBox "没有找到此用户"

Else

If Rs("Password") = Password Then

If s = "1" Then

MsgBox "123"

ElseIf s = "2" Then

MsgBox "456"

End If

Else

MsgBox "密码错误"

End If

End If

End If

End Sub

上面的例子实现了查询

如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用

Conn.Execute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

Conn.Execute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

Conn.Execute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

动态创建数据库

引用 microsoft DAP 3.6 Object Library

Dim myDB As DAO.Database

Set myDB = CreateDatabase(App.Path + "\111.mdb", dbLangGeneral) '如果不存在数据库

Set myDB = OpenDatabase(App.Path + "\111.mdb") '如果存在数据库

Dim str_SQL As String

str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"

myDB.Execute str_SQL

str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"

myDB.Execute str_SQL

myDB.Close

向已经建好的数据库中添加记录

建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库

要先引用microsoft activeX data object 2.5 library

代码如下：

Private Sub Command1_Click()

Dim cnDk As New ADODB.Connection

Dim strDk As String

Dim rDk As New ADODB.Recordset

Dim sql As String

strDk = "DBQ=" App.Path "\a.mdb;Driver=;"

cnDk.Open strDk

sql = "insert into b (c) values ('" text1.text "')"

cnDk.Execute sql

cnDk.Close

Set cnDk = Nothing

End Sub

在数据库中添加多条记录

只要可以进行输入文本的都可以

改一下这些吧，你单击一次就提示输入一次，输完了自动保存

改后

Data1.Recordset.AddNew

Data1.Recordset.Fields("username") = trim(inputbox("请输入名字"))

Data1.Recordset("password") =val(trim(inputbox("请输入电话")))

Data1.UpdateRecord

——————————————————————————————

Data1.Recordset.AddNew

Data1.Recordset.Fields("username") = "张三|"

Data1.Recordset("password") = "fsdfsd"

Data1.UpdateRecord

Data1.Recordset.AddNew

Data1.Recordset.Fields("username") = "李四|"

Data1.Recordset("password") = "fsdf432d"

Data1.UpdateRecord

Data1.Recordset.AddNew

Data1.Recordset.Fields("username") = "王五|"

Data1.Recordset("password") = "f42342d"

Data1.UpdateRecord

MsgBox "adad"

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

vb+access 数据库的记录的添加与删除

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command2_Click()

Set rs = cn.Execute("select * from wenzhang where 内容='" Text1.Text "'")

If Text1.Text = "" Then

MsgBox ("文章不能为空！")

ElseIf rs.EOF = False Then

MsgBox ("文章不能重复！")

Else

cn.Execute ("insert into wenzhang values('" Combo1.Text "','" Text3.Text "','" Text4.Text "','"

Text1.Text "')")

MsgBox ("ok")

End If

End Sub

'添加按钮

Private Sub Command3_Click()

Dim myval As String

Set rs = cn.Execute("select * from wenzhang where 内容='" Text1.Text "'")

If rs.EOF Then

myval = MsgBox("是否保存文章？", vbInformation + vbYesNoCancel, "提示")

If myval = vbYes Then

cn.Execute ("insert into wenzhang values('" Combo1.Text "','" Text3.Text "','" Text4.Text "','"

Text1.Text "')")

MsgBox ("保存成功")

Else

Combo1.Text = ""

End If

Else

Text1.Text = ""

Combo1.Text = ""

End If

End Sub

'删除按钮

Private Sub Command4_Click()

If Text1.Text = "" Then

MsgBox ("不能删除空记录！")

Else

Dim myval As String

myval = MsgBox("是否删除文章？", vbInformation + vbYesNo, "提示")

If myval = vbYes Then

Set rs = cn.Execute("delete from wenzhang where 内容 ='" Text1.Text "'")

MsgBox ("删除成功！")

End If

End If

End Sub

'连接数据库

Private Sub Form_Load()

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\vb.net\temp.mdb;Persist Security Info=False"

cn.CursorLocation = adUseClient

cn.Open

End Sub

求VB+access的登录源代码及说明....

你说的登录是程序的登录界面吧，数据库本身也有登录，当然用 ACCESS 一般不会设置数据库密码，所以不用管。

软件的登录界面分为两部分，一个是接受用户输入，比如从文本框接受用户名和密码：

strName = Text1.Text

strPsw = Text2.Text

然后读取之前保存的内容（从数据库），将用户输入和保存的密码比较，如果密码正确，进入主界面。这里涉及到数据库的连接和数据的读取，网上例子很多，你对照上面的描述，应该可以理解，如果看不懂，建议看下VB基础教程，和VB连接ACCESS的教程

vb连接access数据库代码详细解释

用MICROSOFT jet 4.0 OLE DB Provider引擎连接ACCESS数据库,方法如下:

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

vbaccess网络源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba源代码网站、vbaccess网络源代码的信息别忘了在本站进行查找喔。