我是一个刚学VB新手。有事求助各位大侠。
我需要建立以个程序。在A窗口上有10 多个TEXT的窗口。输入TEXT数据后。单窗口上的“保存”,程序要吧TXET窗口中输入的数据录入到ACCESS中的指定地方去。
怎么做。
(最好是哪个空间怎么画,哪个控件的代码是什么。)
代码最好有注解。要不我看不懂。
我是一个刚学VB新手。有事求助各位大侠。
我需要建立以个程序。在A窗口上有10 多个TEXT的窗口。输入TEXT数据后。单窗口上的“保存”,程序要吧TXET窗口中输入的数据录入到ACCESS中的指定地方去。
怎么做。
(最好是哪个空间怎么画,哪个控件的代码是什么。)
代码最好有注解。要不我看不懂。
一个窗体,一个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