VB6.0用代码往access中增加字段,总报错,求专家
先看下代码,作用将text2中的字符做为access中新增加的字段PrivateSubCommand5_Click()DimcnnAsNewADODB.Connectio...
先看下代码,作用将text2中的字符做为access中新增加的字段
Private Sub Command5_Click()
Dim cnn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim strsql As String
cnn.CursorLocation = adUseClient
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & DBpassword
'strsql = "ALTER TABLE 检验项目设置 ADD " & Text2.Text '& " Boolean"
'strsql = "alter table 检验项目设置 add column " & Text2.Text & " " & "Boolean"
strsql = "ALTER TABLE 检验项目设置 ADD column " & Text2.Text '& " " & "Boolean"
If Text2.Text = "" Then
MsgBox "请输入检验项目!", , "系统提示"
Else
rss.Open strsql, cnn, adOpenKeyset, adLockOptimistic
rss.Update
rss.Close
Text1.Text = ""
Adodc1.Refresh
End If
End Sub
求大神诊断 展开
Private Sub Command5_Click()
Dim cnn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim strsql As String
cnn.CursorLocation = adUseClient
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & DBpassword
'strsql = "ALTER TABLE 检验项目设置 ADD " & Text2.Text '& " Boolean"
'strsql = "alter table 检验项目设置 add column " & Text2.Text & " " & "Boolean"
strsql = "ALTER TABLE 检验项目设置 ADD column " & Text2.Text '& " " & "Boolean"
If Text2.Text = "" Then
MsgBox "请输入检验项目!", , "系统提示"
Else
rss.Open strsql, cnn, adOpenKeyset, adLockOptimistic
rss.Update
rss.Close
Text1.Text = ""
Adodc1.Refresh
End If
End Sub
求大神诊断 展开
1个回答
展开全部
添加字段的语句为:
ALTER TABLE 数据表名 ADD 字段名 字段类型
而 是/否 的字段类型,应该用 YesNo来表示,使用ADO对象,只需要三行命令:
Dim cnn As New ADODB.Connection
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & DBpassword
cnn.Execute "ALTER TABLE 检验项目设置 ADD “ & Text2.Text & " YesNo"
最后一句是使用ADO的Connection对象的Execute方法,执行SQL的命令。
ALTER TABLE 数据表名 ADD 字段名 字段类型
而 是/否 的字段类型,应该用 YesNo来表示,使用ADO对象,只需要三行命令:
Dim cnn As New ADODB.Connection
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & DBpassword
cnn.Execute "ALTER TABLE 检验项目设置 ADD “ & Text2.Text & " YesNo"
最后一句是使用ADO的Connection对象的Execute方法,执行SQL的命令。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询