三分钟掌握VB.NET操作MySql数据库

VB.NET经过长时间的发展,很多用户都很了解VB.NET操作MySql数据库了,这里我发表一下个人理解,和大家讨论讨论。这是在VB.NET中为连接MySql中编写的一个类库。你可以使用这个类库直接VB.NET操作MySql数据库。

成都创新互联公司是专业的厦门网站建设公司,厦门接单;提供网站设计制作、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行厦门网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

在使用这个类库之前,你必须安装
ODBC MYSQL 3.51下载地址:http://www.mysql.com/downloads/api-myodbc-3.51.html
Driver ODBC.NET下载地址:http://www.microsoft.com/downloads/details.aspx?FamilyId=6CCD8427-1017-4F33-A062-D165078E32B1&displaylang=en

在这个库中有三个类:
◆ManipStringForMySQL: 此类修改SGBD的字符串
◆MySQL_Requettes: 发送请求
◆MySQL_Utils : 对SGBD数据进行测试

下面是使用VB.NET操作MySql的一个例子

 
 
 
  1. Public Shared Function MyODBCDataset(ByVal ReqSQL As String, _ByVal LaBase As String, 
    ByVal Server As String, _ByVal Password As String, 
    ByVal User As String, _ByVal NomDataSet As String) As DataSet  
  2. 'Connexion à un server MySQL  
  3. 'avec le Driver ODBC 3.51 avec requette qui renvoie un dataset  
  4. Dim MyConString As String = _ 
  5. "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & Server _& ";DATABASE=" & LaBase & ";
  6. UID=" & User _& ";PASSWORD=" & Password & ";OPTION=3;"  
  7.  
  8. Dim MyODBCConnexion As New OdbcConnection(MyConString)  
  9. Try  
  10. Dim ds As New DataSet()  
  11. Dim cmd As OdbcDataAdapter = New 
  12. OdbcDataAdapter(ReqSQL, MyConString)  
  13. Dim MyCommand As New OdbcCommand()  
  14. Dim MyDataReader As OdbcDataReader  
  15. cmd.Fill(ds, NomDataSet)  
  16. MyODBCConnexion.Close()  
  17. Return ds  
  18. Catch MyOdbcException As OdbcException  
  19. '  
  20. HttpContext.Current.Response.Write(MyOdbcException.ToString)  
  21. Catch MyException As Exception  
  22. '  
  23. HttpContext.Current.Response.Write(MyException.ToString)  
  24. End Try  
  25. End Function 

网页名称:三分钟掌握VB.NET操作MySql数据库
URL分享:http://www.shufengxianlan.com/qtweb/news0/32700.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联