永发信息网

VB新手。求教怎么样把TEXT中的数据录入到ACCESS中去。

答案:1  悬赏:70  手机版
解决时间 2021-07-26 11:04
  • 提问者网友:温柔港
  • 2021-07-25 15:22

我是一个刚学VB新手。有事求助各位大侠。

我需要建立以个程序。在A窗口上有10 多个TEXT的窗口。输入TEXT数据后。单窗口上的“保存”,程序要吧TXET窗口中输入的数据录入到ACCESS中的指定地方去。

怎么做。

(最好是哪个空间怎么画,哪个控件的代码是什么。)

代码最好有注解。要不我看不懂。

最佳答案
  • 五星知识达人网友:笑迎怀羞
  • 2021-07-25 15:59

一个窗体,一个TEXT1,一个按钮,复制一下代码即可


Private Sub Form_Load()
Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If
strAppPath = strAppPath & "BigText.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & ""
Set cnn = New ADODB.Connection
cnn.Open ConnectString
End Sub



private sub command1_click()


dim rs as adodb.recordset


dim str as string


str="insert into 表(字段1,字段2) value("& text1.text &","& text1.text &")"


set rs=new adodb.recordset


rs.open str,cnn,adopenstatic


msgbox"插入成功"


end sub

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯