可以使用ADO來載入資料庫

蛊惑罗密欧

我来发一个我写的ADO.2.7的用户登陆.见笑了.

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("登陆失败")

        Me.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As Form2
        Dim i As Integer
        Dim flag As Boolean
        Dim username, userpwd As String
        mycnn = New ADODB.Connection()
        myrs = New ADODB.Recordset()
        mycmd = New ADODB.Command()
        strcnn = "provider=microsoft.jet.oledb.4.0;data source=softbase.mdb"
        mycnn.Open(strcnn)
        myrs.Open("select * from 用户",mycnn,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockOptimistic)

        flag = False
        username = Me.EDIT用户名.Text
        userpwd = Me.EDIT密码.Text
        myrs.MoveLast()
        myrs.MoveFirst()
        For i = 0 To myrs.RecordCount - 1
            If username = myrs.Fields("工号").Value.ToString Then
                If userpwd = myrs.Fields("密码").Value.ToString Then
                    flag = True
                    MessageBox.Show("登陆成功")
                    Exit For
                End If
            End If
            myrs.MoveNext()
        Next
        If Not flag Then
            MessageBox.Show("登陆失败")
        Else
            f = New Form2()
            f.Show()
            Me.Hide()
        End If

    End Sub

[此贴子已经被作者于2002-12-2 12:25:20编辑过]

蛊惑罗密欧

.NET用的是ADO.NET.
ADO2.7也过时了

蛊惑罗密欧

怎么还是ADO2.7呵。

蛊惑罗密欧

也许接口是一样。不过代吗不一样。你这样写法还是沿用了。VB6。0时代的写发。