vb 数据库添加记录

来源：百度知道 编辑：UC知道 时间：2024/09/25 03:23:28
addtxt(0) 至 addtxt(5)

当文本框内容为空时 自动输入“无内容”

举例：

姓名 年龄 性别 电话 住址
李三 20 男

电话和住址未输入内容
点添加记录按钮后
电话和住址这两个字段会自动输入内容“无内容”

也就是再数据库里保存的是：
姓名 年龄 性别 电话 住址
李三 20 男 无内容 无内容
忘说了是access数据库~~谢谢

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Set conn = OpenConnForAccess(App.Path & "\test.mdb")
strSql= "insert into testtab(姓名,年龄,性别,电话,住址) values("
for i = 0 to 4
s=trim(addtxt(i).text)
if s="" then s="无内容"
strSql=strSql & "'" & s & "',"
next i
mid(strSql,len(strSql),1)=")"
RunTrans strSql,conn
end sub

Public Function OpenConnForAccess(ByVal FileName As String) As ADODB.Connection
Dim AdoConn As New ADODB.Connection
With AdoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Persist Security Info=False"
.Open
End With
Set OpenConnForAccess = AdoConn
End Function

Public Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODB