ADO要定义么?Private Sub Command1_Click()Dim Con As New ADODB.Con
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/30 12:16:12
ADO要定义么?
Private Sub Command1_Click()
Dim Con As New ADODB.Connection ‘ 出现类型结构未定义
Dim Rs As New ADODB.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\db1.mdb;Persist Security Info=False"
Rs.Open "select * from 表1",Con,adOpenKeyset,adLockBatchOptimistic
Rs.AddNew
Rs.Fields(1) = Text1.Text
Rs.Fields(2) = Text2.Text
Rs.Update
Rs.Close
conn.Close
MsgBox ("添加记录成功!")
Adodc1.Refresh
End Sub
Private Sub Command1_Click()
Dim Con As New ADODB.Connection ‘ 出现类型结构未定义
Dim Rs As New ADODB.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\db1.mdb;Persist Security Info=False"
Rs.Open "select * from 表1",Con,adOpenKeyset,adLockBatchOptimistic
Rs.AddNew
Rs.Fields(1) = Text1.Text
Rs.Fields(2) = Text2.Text
Rs.Update
Rs.Close
conn.Close
MsgBox ("添加记录成功!")
Adodc1.Refresh
End Sub
class CDrawDlg;
void DateToInt(CString date,int& year,int& month,int& day);
bool OpenPrintFrame(CWnd* parent,CDrawDlg * m_draw);
这个为什么会放在类LRunSql的头文件里?因为这些不是类的定义代码,而是声明,和函数的声明.因为在类LRunSql的cpp文件中,会需要用到上面这两个函数.而这两个函数中有 CDrawDlg类型的参数,我们知道,对于一种变量类型,必须先定义才能使用.因此这里先声明class CDrawDlg,说明有这么一个类,但他的定义在其他的地方(当然,在这里就是它对应的头文件和cpp了),这样下面的可以使用他了.不然的话,你在定义上面的两个函数是,他会报错,说没有CDrawDlg这种变量类型.
如果不这样,你也可以将CDrawDlg的.h文件包含进来,这样也可以使用这种类型了,但有时会遇到重定义之类的问题,尤其是你在多个地方都这么包含的话.
其实这种情况经常会发生,你去看看MFC里的代码就会发现,他就用了很多这样的,有时你自己也需要这么做.
请参考
void DateToInt(CString date,int& year,int& month,int& day);
bool OpenPrintFrame(CWnd* parent,CDrawDlg * m_draw);
这个为什么会放在类LRunSql的头文件里?因为这些不是类的定义代码,而是声明,和函数的声明.因为在类LRunSql的cpp文件中,会需要用到上面这两个函数.而这两个函数中有 CDrawDlg类型的参数,我们知道,对于一种变量类型,必须先定义才能使用.因此这里先声明class CDrawDlg,说明有这么一个类,但他的定义在其他的地方(当然,在这里就是它对应的头文件和cpp了),这样下面的可以使用他了.不然的话,你在定义上面的两个函数是,他会报错,说没有CDrawDlg这种变量类型.
如果不这样,你也可以将CDrawDlg的.h文件包含进来,这样也可以使用这种类型了,但有时会遇到重定义之类的问题,尤其是你在多个地方都这么包含的话.
其实这种情况经常会发生,你去看看MFC里的代码就会发现,他就用了很多这样的,有时你自己也需要这么做.
请参考
ADO要定义么?Private Sub Command1_Click()Dim Con As New ADODB.Con
Private Sub Command1_Click() Dim i As Double,M As Double,L A
Private Sub Command1_Click() Dim i As Integer,s As Integer,n
0402 Private Sub Command1_Click() Dim a As Single,b As Singl
Private Sub Command1_Click() Dim x As Single,y As Single Pic
33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp
VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin