最近做了个课程设计,学了下VB,作下总结吧。
做这个课程设计的过程中主要的难度是ACCESS数据库编程,用MSFLEXGRID控件来显示数据库的数据
不得不说,做个小应用软件特别是数据库相当重要的,真要好好设计规划下,由于我是第一次做一个小软件,
很多东西都没怎么考虑,搞了下需求分析,数据库的设计也是胡来,整个开发文档也没写好,很是粗糙,结果一个相当简易的东西,做了一个星期,不过从中也学到了很多东西。总结一下:
1.要分析清楚整个系统的运作流程,设定各个部分是如何实现,反正就先假想下。
2.数据库的设计一定跟上面的分析符合,有利于编码的实现
3.很多时候遇到问题自己要好好地思考一下,不要想一下或者遇到陌生的东西时就放弃思考,如果有自己的想法要去尝试下,在课程设计中,要用到复制数据表,但不知怎么搞,到处去问也没人帮忙,浪费了一个晚上的时间,结果第二天清晨自己动手就那个自然的想法试了下,就成功啦。
4.在这个课程设计中,我选了dao的方式,没有采用ado似有点错,因为dao很少人用似的,上网找资料时比较少,以后则定要考虑清楚这些方面。
5.vb6.0是个让我觉得挺烦的东西,每次打开个工程那么多FORM就闪闪闪出来,不喜欢这点,呵呵

DAO的连接方式

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path + "\admin.mdb")
Set rs 
= db.OpenRecordset("select * from table where  "'")
复制数据表
其实也是很简单的,复制的表和被复制的表是基于同个MDB文件的,
If myrs5.RecordCount >= 1 Then
    While myrs5.EOF 
= False
    myrs4.AddNew
    myrs4.Fields(
"Ãû³Æ1"= myrs5.Fields("Ãû³Æ")
    myrs4.Fields(
"µ¥¼Û1"= myrs5.Fields("µ¥¼Û")
    myrs4.Fields(
"ÊýÁ¿1"= myrs5.Fields("ÊýÁ¿")
    myrs4.Fields(
"ÂëÊý1"= myrs5.Fields("ÂëÊý")
    myrs4.Fields(
"½ð¶î1"= myrs5.Fields("½ð¶î")
    myrs4.Fields(
"ÊýÁ¿2"= 0
    myrs5.MoveNext
    myrs4.Update
    Wend
    End If
    myrs5.Close

combo控件,MSFLEXGRID控件的使用,数据库数据显示在MSFLEXGRID上
 If myrs3.RecordCount >= 1 Then
        While myrs3.EOF 
= False
        Combo1.AddItem (myrs3.Fields(
"Ãû³Æ1"))
        Combo2.AddItem (myrs3.Fields(
"ÂëÊý1"))
            MSFlexGrid1.Rows 
= MSFlexGrid1.Rows + 1
            MSFlexGrid1.Row 
= MSFlexGrid1.Rows - 1
            MSFlexGrid1.Col 
= 0
            MSFlexGrid1.Text 
= myrs3.Fields("Ãû³Æ1")
            MSFlexGrid1.Col 
= 1
            MSFlexGrid1.Text 
= myrs3.Fields("µ¥¼Û1")
            MSFlexGrid1.Col 
= 2
            MSFlexGrid1.Text 
= myrs3.Fields("ÊýÁ¿3")
            MSFlexGrid1.Col 
= 3
            MSFlexGrid1.Text 
= myrs3.Fields("ÂëÊý1")
            MSFlexGrid1.Col 
= 4
            MSFlexGrid1.Text 
= myrs3.Fields("½ð¶î1")
            myrs3.MoveNext
        Wend
        myrs3.Close
End If

将数据库中的某个表的数据清空
Dim sstr As String
Dim db As Database
 Set db 
= OpenDatabase(App.Path + "\shoeee1.mdb")
sstr 
= "delete * from shoesell"
db.Execute (sstr)
db.Close

登录框中核对用户名的
 Set Myrs = Mydb.OpenRecordset(" select * from ¹table where username  ='" & Trim(txtUserName) & "'")

复制代码过来有乱码,,,,