可以用ADO空间+文本框捆绑数据设计
也可以用普通文本框设计界面,让用户录入信息;然后用代码实现写入:
1建立ADODB的连接对象
2连接数据库
3打开连接对象
4通过连接对象执行SQL语句(用Insert写入数据)
5关闭对象。
希望对你能有所帮助。
Microsoft ADO Data Control 60和Microsoft DataGrid Control 60ADODC控件属性设置:1、在ADODC控件上右击,选择ADODC属性2、然后在通用选项卡中选择使用连接字符串,点击生成按钮3、然后选择Microsoft Jet 40 OLE DB Provider,点击下一步4、选择要连接打开的Access数据库文件(你要打开的ACCESS文件),点击测试连接,提示成功即可5、切换到记录源选项卡,命令类型选择2-adCmdTable,表或存储过程名称选择要打开的表,点击确定。经过以上的步骤设置,ADODC控件虽然具有了“打开”数据库的能力,但它没有“显示”数据的能力,此时我们就要借助DataGrid控件了。DataGrid控件属性设置:设置DataGrid控件的DataSource属性为Adodc1通过以上语句的设置,就将DataGrid控件和Adodc控件绑定在一起了,这样DataGrid才能正常显示Adodc打开数据表的内容。
你试试我写的这个代码
在工程->引用->添加ADO对象库引用
Option
Explicit
Dim
conn
As
New
ADODBConnection
Dim
rs
As
New
ADODBRecordset
Dim
cm
As
New
ADODBCommand
Private
Sub
Command1_Click()
rsUpdate
End
Sub
Private
Sub
Command2_Click()
rsAddNew
End
Sub
Private
Sub
Form_Load()
connConnectionString
=
"Provider=MicrosoftJetOLEDB40;Data
Source=C:\Program
Files\Microsoft
Visual
Studio\VB98\BIBLIOMDB;Persist
Security
Info=False"
connOpen
rsOpen
"select
产品ID,产品名称,产品单价,是否新产品,客户ID,****,订购日期
from
MyTable",
conn,
adOpenKeyset,
adLockPessimistic
Text1DataField
=
rsFields(0)Value
Text2DataField
=
rsFields(1)Value
Text3DataField
=
rsFields(2)Value
Text4DataField
=
rsFields(3)Value
Text5DataField
=
rsFields(4)Value
Text6DataField
=
rsFields(5)Value
Text7DataField
=
rsFields(6)Value
End
Sub
Private
Sub
Form_Unload(Cancel
As
Integer)
rsClose
connClose
Set
rs
=
Nothing
Set
conn
=
Nothing
End
Sub
1、打开代码窗口,添加引用:Imports SystemDataSqlClient。
2、输入以下代码:
“Public conn1 As SqlConnection = New SqlConnection _
("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”,vb就已经成功连接sql数据库了。
3、代码详解:声明关键字Public(因为是全局变量,所以用Public 来声明)。
4、连接参数。
5、如果SQL 数据库就在本机,则用以下代码连接:
("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。
6:如果代码太长,影响可读性,可以用空格加"_"后,回车换行。
以上就是关于vb 中向数据库插入数据全部的内容,包括:vb 中向数据库插入数据、VB如何使用ADODC控件用代码连接数据库、如何向使用vb向access数据库添加数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)