zoukankan      html  css  js  c++  java
  • VBS连接数据库—oracle mysql的连接方式,测试可用

      • VBS 连接oracle

      Dim Cnn
      Dim Rst
      Dim strCnn

      StrCnn="Provider=MSDAORA.1;User ID=loan;Password=loan;Data Source=orcl;Persist Security Info=False"

      Set Cnn = CreateObject("ADODB.Connection")
      Cnn.Open strCnn

      '查看是否连接成功,成功状态值为1
      'msgbox Conn.state
      If Cnn.State = 0 Then
           msgbox  "连接数据库失败"
      else
          msgbox   "连接数据库成功"
      End If

      Set Rst =CreateObject("ADODB.Recordset")
      'Rst.open "update user_info set user_status='5' where user_email='278213098@qq.com'",Cnn
      Rst.open "select user_id,user_email from user_info where user_email like 'luyong%' and user_status='1'",Cnn
      i=1
      While not Rst.eof       '//循环取出DB里面的数据并导到Global table里面
           dim1=Rst("user_id").value
           dim2=Rst("user_email").value 
           'DataTable.GlobalSheet.SetCurrentRow(i)
           'DataTable("AA",dtGlobalSheet)=dim1
           'DataTable("BB",dtGlobalSheet)=dim2
           MsgBox(dim1)  
      i=i+1
          Rst.movenext               
      wend

      '
      'Rst.close        '关闭记录集
      'Set Rst=nothing        '释放对象
      'cnn.close        '关闭连接
      'Set cnn=nothing        '释放对象

      红色连接串有udl文件产生

      创建连接数据库字符串的方法如下
      1、新建个空的文本文件,然后重命名为test.udl

      VBS 之 连接oracle数据库 - 流口水的小猪 - 轨迹

      2、双击打开test.udl,在Provider中选择要连接的数据库对应的供应商,比如SqlServer数据库就选Microsoft OLE DB Provider for SQL Server
      3、点击Next或者上面的Connection标签,在DataSource中输入数据库服务器的网络名称(或IP),并输入登录数据库的用户名和密码,注意保存密码上打勾
      4、点击 Test Connection,若测试通过,则点OK退出该udl文件
      5、右键点击test.udl,选择用记事本打开,有没发现你要写的连接字符串已经乖乖躺在那里了~赶紧Ctrl+C,Ctrl+V吧~

         .

      之前我还碰到test.udl 打不开,系统提示选择打开方式,查了一下,需要注册这个

      regsvr32   "C:\Program Files\Common Files\System\Ole DB\oledb32.dll"

      • VBS连接mysql

      Dim Cnn
      Dim Rst
      Dim strCnn

      StrCnn="Provider=MSDASQL.1;Persist Security Info=True;Extended Properties='Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=123456;DATABASE=first;PORT=3306'"

      Set Cnn = CreateObject("ADODB.Connection")
      Cnn.Open strCnn

      '查看是否连接成功,成功状态值为1
      'msgbox Conn.state
      If Cnn.State = 0 Then
           msgbox  "连接数据库失败"
      else
          msgbox   "连接数据库成功"
      End If

      Set Rst =CreateObject("ADODB.Recordset")
      'Rst.open "select qq,status from qq",Cnn
      i=1
      While not Rst.eof       '//循环取出DB里面的数据并导到Global table里面
           dim1=Rst("qq").value
           dim2=Rst("status").value 
           MsgBox(dim1)  
           i=i+1
          Rst.movenext               
      wend

      '
      Rst.close        '关闭记录集
      Set Rst=nothing        '释放对象
      cnn.close        '关闭连接
      Set cnn=nothing        '释放对象

         其中连接串是参考:http://blog.csdn.net/zyq5945/article/details/5486393

         这里用的是udl通过数据源来访问mysql的,因为udl本身没有提供连接mysql的方式

      首先你正确安装了MYSQL的数据库驱动程序(mysql-connector-odbc-5.1.6-win32.msi )

      1.在桌面上新建一个空的文本文件mysql.txt,重命名为mysql.udl;

      2.双击这个mysql.udl文件,打开“数据库连接属性”对话框,在“提供程序”页选择”Micrsoft Ole DB Provider for ODBC Drivers“,

      VBS 之 连接oracle数据库 - 流口水的小猪 - 轨迹

        点击下一步;

      3.在“连接”页的,"指定数据源"选择"使用连接字符串";

      4.点击“编译”,弹出“选择数据源”,在“文件数据源”页中点击”新建“,在创建新数据源选择MYSQL的驱动程序”MySQL ODBC 5.1 Driver";

      VBS 之 连接oracle数据库 - 流口水的小猪 - 轨迹

      5.点击“下一步”,点击"浏览",在”另存为“对话框中文件名称写入“mysql",点击”下一步“,点击”完成“;

      6.在"MySQL Connnettor/ODBC Data Source Configuration"对话框中按需求(如下图);

      VBS 之 连接oracle数据库 - 流口水的小猪 - 轨迹

      (实际上4/5/6步创建了一个数据源,如果原本已经存在mysql的数据源,直接选择原有的数据源也可以)

      7.点击“Test”,看连接是否成功,连接成功会有个”Connenction successful“提示框,需要更详细的设置点击“Details”,点击”OK“,设置完成;

      8.返回“数据库连接属性”对话框,点击“测试连接”,成功的话就是我们要的连接字符串。

        有关udl文件的补充学习,baidu之

      udl(Universal Data Link)是通用数据连接文件,使用通用数据链接 (UDL) 文件来保存连接字符串。   使用 UDL 文件存储数据库连接的方式和使用“ODBC 数据源名称 (DSN)”非常相似。UDL 文件存储 OLE DB 连接信息,例如提供程序、用户名、密码和其他选项。用存储在该 UDL 文件中的信息可以打开 ADO 连接,从而允许管理员在需要的情况下更改它,并且避免了打开注册表或者使用 ODBC。

         有关创建见上文。

         用文本方式打开后的格式

      [oledb]
      ; Everything after this line is an OLE DB initstring
      Provider=MSDASQL.1;Persist Security Info=True;Extended Properties="Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=123456;DATABASE=first;PORT=3306"

         注意上面实际上是3行,最后一个就是我们需要的,


    作者:高级测试开发网
    博客地址:https://seniortesting.club
    本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

  • 相关阅读:
    Allegro PCB Design GXL (legacy) 使用slide无法将走线推挤到焊盘的原因
    OrCAD Capture CIS 16.6 导出BOM
    Altium Designer (17.0) 打印输出指定的层
    Allegro PCB Design GXL (legacy) 将指定的层导出为DXF
    Allegro PCB Design GXL (legacy) 设置十字大光标
    Allegro PCB Design GXL (legacy) 手动更改元器件引脚的网络
    magento产品导入时需要注意的事项
    magento url rewrite
    验证台湾同胞身份证信息
    IE8对css文件的限制
  • 原文地址:https://www.cnblogs.com/seniortestingdev/p/2360094.html
Copyright © 2011-2022 走看看