当在Access中追加字段时,怎样链接到VB程序中?
有一个VB程序。是连接Access数据库的一个查询用小程序。当在Access中追加字段(不是追加记录)时,怎样链接到VB程序中?下面是VB程序开头代码:DimApp_pa...
有一个VB程序。
是连接Access数据库的一个查询用小程序。
当在Access中追加字段(不是追加记录)时,怎样链接到VB程序中?
下面是VB程序开头代码:
Dim App_path As String
Private Sub Form_Load()
Call F_CtrForm(Me)
Call S_画面初期化(0)
App_path = App.Path
If Right(App_path, 1) <> "\" Then
App_path = App_path & "\"
End If
Set Db = OpenDatabase(App_path + "数据库.mdb")
Me.Show
txtSKB.SetFocus
Exit Sub
ErrorEnd:
MsgBox (Err.Description & vbCrLf & "失败"), vbExclamation
Unload Me
End Sub
Private Sub S_画面初期化(ICode As Integer)
If ICode = 0 Then
txtSKB.Text = ""
End If
Call Form_Enabled(0)
Call Form_Clear
End Sub
Private Sub Form_Enabled(ICode As Integer)
Dim Int_i As Integer
Select Case ICode
Case 0, 2, 3
Txt编号.Enabled = False
Txt类别.Enabled = False
Txt名称.Enabled = False
txt说明.Enabled = False
txt图片.Enabled = False
Txt属性.Enabled = False
Case 1
txt编号.Enabled = True
Txt类别.Enabled = True
Txt名称.Enabled = True
txt说明.Enabled = True
txt图片.Enabled = True
Txt属性.Enabled = True
End Select
。。。。。。。。。。。。。。。
。。。。。。。。。。。。。。。
我已经在Access数据表中添加了字段,如: “备考”。
但,运行VB程序时看不到变化(当然看不到哈)。
怎么才能把追加的字段,链接到VB程序里呢?
请大虾教一下方法或思路,谢谢。
本人VB是菜鸟,请讲稍微详细点。
关键问题是:
程序不是我做的,我只是用别人的这个程序查询用。
但现在需要在链接的Access数据库里加字段,使相应的内容
在VB程序里显示出来。
基本思路是??
是通过VB向Access数据库里添加字段,还是Access数据库里先加好。
然后修改VB程序?我的思路是后者 展开
是连接Access数据库的一个查询用小程序。
当在Access中追加字段(不是追加记录)时,怎样链接到VB程序中?
下面是VB程序开头代码:
Dim App_path As String
Private Sub Form_Load()
Call F_CtrForm(Me)
Call S_画面初期化(0)
App_path = App.Path
If Right(App_path, 1) <> "\" Then
App_path = App_path & "\"
End If
Set Db = OpenDatabase(App_path + "数据库.mdb")
Me.Show
txtSKB.SetFocus
Exit Sub
ErrorEnd:
MsgBox (Err.Description & vbCrLf & "失败"), vbExclamation
Unload Me
End Sub
Private Sub S_画面初期化(ICode As Integer)
If ICode = 0 Then
txtSKB.Text = ""
End If
Call Form_Enabled(0)
Call Form_Clear
End Sub
Private Sub Form_Enabled(ICode As Integer)
Dim Int_i As Integer
Select Case ICode
Case 0, 2, 3
Txt编号.Enabled = False
Txt类别.Enabled = False
Txt名称.Enabled = False
txt说明.Enabled = False
txt图片.Enabled = False
Txt属性.Enabled = False
Case 1
txt编号.Enabled = True
Txt类别.Enabled = True
Txt名称.Enabled = True
txt说明.Enabled = True
txt图片.Enabled = True
Txt属性.Enabled = True
End Select
。。。。。。。。。。。。。。。
。。。。。。。。。。。。。。。
我已经在Access数据表中添加了字段,如: “备考”。
但,运行VB程序时看不到变化(当然看不到哈)。
怎么才能把追加的字段,链接到VB程序里呢?
请大虾教一下方法或思路,谢谢。
本人VB是菜鸟,请讲稍微详细点。
关键问题是:
程序不是我做的,我只是用别人的这个程序查询用。
但现在需要在链接的Access数据库里加字段,使相应的内容
在VB程序里显示出来。
基本思路是??
是通过VB向Access数据库里添加字段,还是Access数据库里先加好。
然后修改VB程序?我的思路是后者 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询