注册 登录
编程论坛 VB.NET论坛

登陆界面调用数据库

trovar 发布于 2010-01-26 11:39, 1969 次点击
我想设计各登陆界面,要验证用户名和密码,连接验证的数据库为admin,通过判断数据库里的用户名是否存在和输入是否正确才能登陆,我应该怎么写,我用的是VB2008.请高手指教。
11 回复
#2
xlh00532010-01-30 14:17
undefined
#3
xlh00532010-01-30 14:18
undefined
#4
xlh00532010-01-30 14:18
undefined
#5
xlh00532010-01-30 14:23
undefined
#6
angellwing2010-02-01 11:57
我也想知道,咋没高手回复咧?
#7
xlh00532010-02-02 11:28
undefined
#8
adrian02010-02-03 11:09
写一段数据库连接代码吧
#9
adrian02010-02-03 11:11
这是一个vs2005与oracle的连代码,请大家参考一下

class oraDataConnection
    {
        string serveraddress = "carmng";
        string userid = "carmng";

        public OracleConnection getcon(string server,string user)       //返回一个oracle连接
        {
            if (server == "")
                server = serveraddress;
            if (user == "")
                user = userid;

            string constr = "data source="+server+";user="+user+";password=cztesthp380";
            OracleConnection conora = new OracleConnection(constr);

            return conora;
        }

        public DataTable getdatatable(string server,string user,string cmdstr)     //返回一个指定查询的表
        {
            string constr = "data source=" + server + ";user=" + user + ";password=cztesthp380";
            OracleConnection oracon = new OracleConnection(constr);
            oracon.Open();
            DataTable dt = new DataTable();
            OracleDataAdapter ada = new OracleDataAdapter(cmdstr, oracon);
            ada.Fill(dt);
            oracon.Close();

            return dt;
        }

        public DataTable getdatatable(OracleConnection oracon, string cmdstr)     //返回一个指定查询的表
        {
            oracon.Open();
            DataTable dt = new DataTable();
            OracleDataAdapter ada = new OracleDataAdapter(cmdstr, oracon);
            ada.Fill(dt);
            oracon.Close();

            return dt;
        }

        public string insertitem(string server, string user, string cmdstr)        //增加操作
        {
            if (cmdstr.Substring(0, 12) != "insert into ")
            {
                return "非insert语句";
            }

            string constr = "data source=" + server + ";user=" + user + ";password=cztesthp380";
            OracleConnection oracon = new OracleConnection(constr);
            oracon.Open();
            OracleCommand cmd = new OracleCommand(cmdstr, oracon);
            cmd.ExecuteNonQuery();
            oracon.Close();

            return "1";
        }

        public string updateitem(string server, string user, string cmdstr)          //更新操作
        {
            if (cmdstr.Substring(0, 7) != "update ")
            {
                return "非update语句";
            }

            string constr = "data source=" + server + ";user=" + user + ";password=cztesthp380";
            OracleConnection oracon = new OracleConnection(constr);
            oracon.Open();
            OracleCommand cmd = new OracleCommand(cmdstr, oracon);
            cmd.ExecuteNonQuery();
            oracon.Close();

            return "1";
        }

        public string deleteitem(string server, string user, string cmdstr)            //删除操作
        {
            if (cmdstr.Substring(0, 12) != "delete from ")
            {
                return "非delete语句";
            }

            string constr = "data source=" + server + ";user=" + user + ";password=cztesthp380";
            OracleConnection oracon = new OracleConnection(constr);
            oracon.Open();
            OracleCommand cmd = new OracleCommand(cmdstr, oracon);
            cmd.ExecuteNonQuery();
            oracon.Close();

            return "1";
        }
    }
#10
trovar2010-02-04 11:57
回复 9楼 adrian0
3Q 很有参考价值 但是我想要与SQL2008连起来,有提供参考的吗?

[ 本帖最后由 trovar 于 2010-2-4 11:59 编辑 ]
#11
adrian02010-02-11 09:58
你那个只要连接数据库中的用户表~~
就可以实现呀
#12
一方通行2010-02-18 00:05

Do While olerd.read()
            For i = 0 To olerd.fieldcount - 1
                If Trim(TextBox1.Text) = (olerd.item("ID")) And Trim(TextBox2.Text) = (olerd.item("MIMA")) Then
                    MsgBox("成功登陆")
                    pd = True
                    Exit Sub
                End If
            Next
        Loop
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.Focus()
        olerd.close()
        olecn.close()
这个方法就可以了,如果为空就让textbox。focus()exitsub
1