PPT连接access数据库,怎样做密码验证的登录界面? access 2010 里的数据怎么连接到ppt 里面?比如...

作者&投稿:骆恒 (若有异议请与网页底部的电邮联系)

以下实例以连接sql数据库,只要将代码中的连接数据库代码改成连接access数据库即可:

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _

     + "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"      '连接数据库代码

改为:

conn.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\BPO.accdb"即可


添加引用


一、界面设计

各控件名称属性分别为:label1  、text1 、label2、text2、commandok、cmdcancel

登录成功后显示的窗体:

代码设计如下:

'首先添加一个模块,写上以下通用声明和Sub main():


Public conn As ADODB.Connection    '通用(声明)

Sub main()

    Set conn = New ADODB.Connection   '通用(main)

     conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _

     + "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"      '连接数据库代码

    conn.Open

frmLogin.Show     '首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体

End Sub

'在Frmlogin 代码窗口,为cmdok控件写以下代码:

Private Sub cmdok_Click()

  If text1.Text = "" Then

        MsgBox "用户名不能为空!", vbOKOnly + vbInformation, "友情提示"

        text1.SetFocus

        Exit Sub       '若用户名文本框内为空,则出现提示框

    End If

    If text2.Text = "" Then

        MsgBox "密码不能为空!", vbOKOnly + vbInformation, "友情提示"

        text2.SetFocus

        Exit Sub     '若输入密码文本框为空,也出现提示框

    End If

    Dim strSQl As String    

    strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "    

    '书写SQL代码,查询User1表中是否存在窗体中用户输入的信息。

    Dim str As New ADODB.Recordset

    Set str = New ADODB.Recordset

    str.CursorLocation = adUseClient

    str.Open strSQl, conn, adOpenStatic, adLockReadOnly

    

    With str

        If .State = adStateOpen Then .Close

        .Open strSQl

        If .EOF Then

            Try_times = Try_times + 1

            If Try_times >= 3 Then

                MsgBox "您已连续三次输入错误,系统将自动关闭", vbOKOnly + vbCritical, "警告"

                Unload Me            '若用户连续输入3次错误密码,则系统关闭

            Else

                MsgBox "对不起,用户名不存在或密码错误 !", vbOKOnly + vbQuestion, "警告"

                text1.SetFocus

                text1.Text = ""

                text2.Text = ""

            End If

        Else

            

            Unload Me    '若登录成功,则隐藏当前窗体

            

          Form2.Show    '然后显示Form窗体            

        End If

    End With

End Sub

Private Sub cmdCancel_Click()    

End         '若单击Cmdcel按钮,则结束应用程序

End Sub

运行中存在的问题:

代码中有Dim conn As adodb.connection,运行时显示"用户定义类型未定义"

解决方法:点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”

然后就就可以正常运行了。



PPT和Access数据库链接问题,求大神帮助?~

1、从Access数据库里查找并提取一些信息然后以表格的形式显示在PPT里

这个无非就是一个读写的过程,从数据库读取数据,写到某个文件上,建议用Excel,因为网上提供Excel的方法比较多,实现起来比较方便
2、然后每一次更新数据库,打开PPT点击某个按钮就能跟着更新

可以再库里面设置一个标识字段,用于判断是否需要更新的数据

希望思路可以给你带来帮助。

可以把数据复制到EXCEL里面去做!

PPT连接access数据库,怎样做密码验证的登录界面?
答:以下实例以连接sql数据库,只要将代码中的连接数据库代码改成连接access数据库即可:conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '连接数据库代码 改为:conn.ConnectionString = "P...

如何连接access数据库
答:然后我们在Access中添加一个数据表(tb_test),随便加几列内容,如下所示:4 打开Visual Studio,新建一个Winform窗体,在窗体上放一个button按钮,剩下的就是书写点击按钮后的方法了 5 点击button按钮后我们要做的就是连接数据库,然后查询数据库中我们刚才新建的表,将其赋值给一个DataSet。我们先来看...

tp怎么连接access数据库
答:按 Win + R 键, 在运行里 输入 services.msc 找到SQL SERVER(MSSQLSERVER),看看这个服务开启了没,没开的话手动开启一下,再连接。

pb如何连接access数据库?
答:pb连接access数据库有两种方法:1、用odbc连接,就是在系统的odbc中配置好连接,然后在程序中引用即可。2、采取oledb方式连接,用pb自带的数据驱动程序用oledb的方式进行连接。

如何远程调用Access数据库方法详解
答:远程连接access数据库的几个方法:1.建立VPN(Virtual Private Network),这样你的电脑和主机的连接就与局域网无异,然后把服务器中mdb文件所在的Folder共享即可。ADO连接如下: 以下为引用的内容:oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ServerNameDatabaseFolderDatabase.mdb;Jet ...

C语言连接Access数据库如何实现???标准的c语言
答:2、举个例子,连接SQL:// 打开数据库strDBClass.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s"), m_strUnEntryptMdbFilePath,m_strMDBPassword);// 创建连接HRESULT hr = m_pConnection.CreateInstance(_uuidof(Connection));_ConnectionPtr m_...

教你如何解决access数据库连接错误
答:步骤一:请检查conn.asp中的连接字符是否正确,如果没有错误,还提示数据库连接出错,往下看access数据库连接错误。步骤二:把数据库下载到本地(默认数据库 database/#newasp.mdb),用ACCESS打开,压缩修复数据库(打开ACCESS -- 工具 -- 数据库实用工具 -- 压缩和修复数据库);然后重新上传access...

access如何链接access如何链接表格
答:在FlexSim中与数据库建立连接,如果是Access或者Oracle等通常使用ODBC,具体方法和步骤如下:1、建立一个ODBCAlias(数据源)建立方法是(1)在系统盘下面找到odbcad32.exe的执行文件并双击打开(64位系统的默认地址为C:WindowsSysWOW64);(2)在默认的“用户DSN”选项卡中添加一个数据源(添加选项中可以...

网页如何连接到ACCESS 数据库
答:第一种 - 这种方法用在ACCESS中最多 strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _& Server.MapPath("aspfree.mdb")set conn = server.createobject("adodb.connection")conn.open strconn 第二种-这种方法用在SQL SERVER中多 strconn = "Driver={SQL Server};Description=sql...

如何进行C#连接Access数据库的细节操作
答:连接access数据库需要导入额外的命名空间,所以有了最前面的两条using命令,这是必不可少的!strconnection这个变量里存放的是连接数据库所需要的连接字符串,他指定了要使用的数据提供者和要使用的数据源."provider=microsoft.jet.oledb.4.0;"是指数据提供者,这里使用的是microsoft jet引擎,也就是access中的数据引擎,...