请问VB能否在程序运行过程中将变量的值赋给数据库的字段? - VB6论坛 - 编程论坛
来源:百度文库 编辑:神马文学网 时间:2024/07/04 21:29:19
谁说ADO只能读取文本框的东西了? 那是ADODC控件,而不是ADO对象,况且ADODC也可以赋值啊,ADODC也不只有用绑定控件这种笨办法,大可以这样啊:Text1.Text=ADODC1.RecordSet!FiledName,不用绑定的,绑定最笨了
另外
Execute方法知道吗?动态生成SQL语句,比如:
Dim TxtSql as String
Dim a as String
TxtSql="UpDate TableName Set FiledName='" & a & "'"
'这样就已经生成了一条Sql语句,然后用Execute方法提交运行
要是看不懂的话,先去看看ADO的资料,这是最好的办法
三断笛,你好!这是我的演示程序,请看看为什么不能将数据写入到数据库?
请帮忙修改一下,谢谢!
Private Sub Cmdtest_Click() '测试按钮
Dim a As String
Dim b As String
Dim c As String
cs_num = 9
lz_data = 999
bxl_data = 99
'以上是演示用的数据
txtFields(0) = cs_num
txtFields(1) = lz_data
txtFields(2) = bxl_data
a = txtFields(0)
b = txtFields(1)
c = txtFields(2)
'---------------------------------
Dim astr1 As String, astr2 As String, astr3 As String
Dim dbAdd As Database
Screen.MousePointer = vbHourglass
Set dbAdd = DBEngine.Workspaces(0).OpenDatabase("e:\vb2\zxky1.mdb")
astr1 = "UpDate csbg set 测试序号= '" & a & "'"
astr2 = "UpDate csbg Set 力值='" & b & "'"
astr3 = "UpDate csbg Set 变形量='" & c & "'"
Debug.Print astr1
dbAdd.Execute astr1
Debug.Print astr2
dbAdd.Execute astr2
Debug.Print astr3
dbAdd.Execute astr3
On Error GoTo UpdateErr
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
Set dbAdd = Nothing
End Sub
另外
Execute方法知道吗?动态生成SQL语句,比如:
Dim TxtSql as String
Dim a as String
TxtSql="UpDate TableName Set FiledName='" & a & "'"
'这样就已经生成了一条Sql语句,然后用Execute方法提交运行
要是看不懂的话,先去看看ADO的资料,这是最好的办法
三断笛,你好!这是我的演示程序,请看看为什么不能将数据写入到数据库?
请帮忙修改一下,谢谢!
Private Sub Cmdtest_Click() '测试按钮
Dim a As String
Dim b As String
Dim c As String
cs_num = 9
lz_data = 999
bxl_data = 99
'以上是演示用的数据
txtFields(0) = cs_num
txtFields(1) = lz_data
txtFields(2) = bxl_data
a = txtFields(0)
b = txtFields(1)
c = txtFields(2)
'---------------------------------
Dim astr1 As String, astr2 As String, astr3 As String
Dim dbAdd As Database
Screen.MousePointer = vbHourglass
Set dbAdd = DBEngine.Workspaces(0).OpenDatabase("e:\vb2\zxky1.mdb")
astr1 = "UpDate csbg set 测试序号= '" & a & "'"
astr2 = "UpDate csbg Set 力值='" & b & "'"
astr3 = "UpDate csbg Set 变形量='" & c & "'"
Debug.Print astr1
dbAdd.Execute astr1
Debug.Print astr2
dbAdd.Execute astr2
Debug.Print astr3
dbAdd.Execute astr3
On Error GoTo UpdateErr
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
Set dbAdd = Nothing
End Sub
请问VB能否在程序运行过程中将变量的值赋给数据库的字段? - VB6论坛 - 编程论坛
CCF技术论坛 - 在VB中将数据库里的某一字段的值赋给一个变量,这个语句如何写?
请问如何将数据库中的值赋给变量 - VB / 基础类
转 VB中OLE数据库字段表格的操纵方法
Vb.net 取程序运行的绝对路径
VB编程基础教程3–理解变量的范围 | 异次元软件世界
VB数据库编程技术
VB数据库编程技术!
用VS.NET编写的程序能否在没安装.NET Framework的电脑上运行?
请问有人会写九九表的程序吗?_Script程序语言论坛
VB开机运行程序
从VB6到VB.NET的变化综述
VB数据库编程技术123
VB6.0初学者的十个编程小技巧
VB编程的必备技巧
通过JDBC操纵Oracle数据库LOB字段的分析
如何在VB中判断Windows9x的运行模式
VC的另类数据库编程
VB数据库编程书写经验两则
vb和vbnet中变量声明的差别
VB.NET 的新特点:变量,类型,数组,属性
VB.NET 的新特点:变量,类型,数组,属性
编程入门网-如何锁定一些我不想让别人运行的程序
Vb6里面数组的使用的小例子 -- 中国VB网