asp access 数据库链接

明王不动 — Mon, 11 May 2009 13:59:00 GMT

dim conn,Strconn
Set conn = Server.CreateObject("ADODB.Connection")
  Strconn="DRIVER={Microsoft Access Driver (*.mdb)};"
  Strconn=Strconn &"DBQ=" & Server.MapPath ("baoming.mdb")
  conn.Open Strconn

很晕，这个数据库链接，我试了几十次，最后删掉一个空格时居然就OK啦，郁闷！

明王不动 2009-05-11 21:59 发表评论

vb dao

明王不动 — Sun, 12 Apr 2009 06:58:00 GMT

最近做了个课程设计，学了下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) & "'")

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

明王不动 2009-04-12 14:58 发表评论

C++博客-apple-随笔分类-数据库编程

asp access 数据库链接

vb dao