form1.vb

将此程序放至万像2006服务端目录..根据输入内容可查询密码

Imports System.IO
'Imports System.Data

Public Class Form1
    Const dbfile As String = "wxdb.udl"



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists(dbfile) = False Then
            MsgBox("请将此程序放在万像服务端目录中", MsgBoxStyle.Exclamation, "提示")
            End
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If inputcard.Text = "" Then
            MsgBox("请输入八位卡号", MsgBoxStyle.Exclamation, "提示")
            Exit Sub
        End If
        'File.Open("wxdb.udl", FileMode.Open)
        Dim dbtext As String
        Dim dbconnstr As String
        Dim fs As StreamReader = New StreamReader(dbfile)

        TextBox1.AppendText("正在连接数据库...")
        '获取udl文件中的数据库连接-----开始----------

        Do While Not fs.EndOfStream()
            dbtext = fs.ReadLine()
            'TextBox1.AppendText(dbtext & Chr(13) & Chr(10))
            If InStr(dbtext, "Provider=", CompareMethod.Text) = 1 Then
                'MsgBox(InStr(dbtext, "Provider=", CompareMethod.Text).ToString)


                dbconnstr = dbtext
                'TextBox1.AppendText(dbconnstr & Chr(13) & Chr(10))
                Exit Do
            End If
        Loop
        fs.Close()

        If InStr(dbconnstr, "Provider=SQLOLEDB.1;Data Source=Provider=", CompareMethod.Text) Then
            dbconnstr = Replace(dbconnstr, "Provider=SQLOLEDB.1;Data Source=Provider=", "Provider=")
        End If
        'TextBox1.AppendText(dbconnstr & Chr(13) & Chr(10))
        '获取udl文件中的数据库连接-----结束----------

        '定义数据库连接conn 及命令cmd
        Dim conn As New OleDb.OleDbConnection(dbconnstr)  '数据连接类oledbconnection定义
        Dim conncmd As New OleDb.OleDbCommand()    '数据命令oledbcommand定义
        conn.ConnectionString = dbconnstr
        conncmd.Connection = conn

        Try


            conncmd.CommandText = "select * from dbo.tUsers where sCardID='" & Trim(inputcard.Text) & "'"
            'Dim connread As OleDb.OleDbDataReader = conncmd.ExecuteReader()

            conn.Open()
            TextBox1.AppendText("连接成功" & Chr(13) & Chr(10))
            Dim connread As OleDb.OleDbDataReader = conncmd.ExecuteReader()
            If connread.Read = True Then
                'While connread.Read()
                TextBox1.AppendText("-------------------查询 开始---------------" & Chr(13) & Chr(10))
                TextBox1.AppendText("-卡号：[" + connread("sCardID").ToString + "]" & Chr(13) & Chr(10))
                TextBox1.AppendText("-密码：[" + connread("spassword").ToString + "]" & Chr(13) & Chr(10))
                TextBox1.AppendText("-姓名：[" + connread("sname").ToString + "]" & Chr(13) & Chr(10))
                TextBox1.AppendText("-证件：[" + connread("sIDcard").ToString + "]" & Chr(13) & Chr(10))
                TextBox1.AppendText("-------------------查询 结束---------------" & Chr(13) & Chr(10))
                'TextBox1.AppendText("查询不到卡号1[" + connread("sname") + "]" & Chr(13) & Chr(10))
                'End While
            Else
                TextBox1.AppendText("查询不到卡号：" & inputcard.Text & Chr(13) & Chr(10))
            End If
            connread.Close()
        Catch ex As Exception
            TextBox1.AppendText("连接失败" & Chr(13) & Chr(10))
            TextBox1.AppendText(dbconnstr & Chr(13) & Chr(10))
        End Try

        conn.Close()


        '检测试连接是否成功

        If ConnectionState.Open <> 1 Then
            TextBox1.AppendText("连接失败" & Chr(13) & Chr(10))
            TextBox1.AppendText(dbconnstr & Chr(13) & Chr(10))
        End If


        'FileClose(1)
        '程序应用说明
        'input  将文件输入至某个变量中
        'lineinput 将文件一行一行读至变量 (只取一行)
        ' TextBox1.AppendText("正在连接数据库" & Chr(13) & Chr(10))








    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://www.4rgame.com")


    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
    End Sub
End Class