精华内容
下载资源
问答
  • 在VB的数据库操作中,连接数据库是第一步,也是最基本的,本文所述的这个例子,对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。具体实现代码如下:VERSION 5.00Begin VB.Form 操作数据库Caption ...

    本文实例讲述了使用ADODB.Connection连接access数据库的方法,驱动类型版本为:Microsoft.Jet.OLEDB.4.0。在VB的数据库操作中,连接数据库是第一步,也是最基本的,本文所述的这个例子,对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。

    具体实现代码如下:

    VERSION 5.00

    Begin VB.Form 操作数据库

    Caption = "VB操作数据库"

    ClientHeight = 3645

    ClientLeft = 4905

    ClientTop = 4260

    ClientWidth = 5895

    LinkTopic = "Form1"

    ScaleHeight = 3645

    ScaleWidth = 5895

    End

    Attribute VB_Name = "操作数据库"

    Attribute VB_GlobalNameSpace = False

    Attribute VB_Creatable = False

    Attribute VB_PredeclaredId = True

    Attribute VB_Exposed = False

    Option Explicit

    Private Sub Form_Load()

    Dim 数据库 As Object

    Set 数据库 = New ADODB.Connection

    Call 数据库.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") '连接数据库

    If ((数据库.State) = (adStateOpen)) Then

    MsgBox ("连接成功!")

    Else

    MsgBox ("连接失败!")

    End If

    数据库.Close

    Set 数据库 = Nothing

    End Sub

    这个实例建立了一个名为“数据库”的New ADODB.Connection对象,用此对象增连接数据库,在连接成功后,弹出消息框告之连接结果,在大多数情况下,VB与Access2003之前版本的数据库连接,基本都这样。测试数据库请放在VB同级目录下,Data.mdb可根据自己实际的数据库路径进行修改。

    展开全文
  • I want to insert an image into a mysql database using the adodb connection in vb.net 2008.I am using a select query to insert data into database, here is my code for adding or saving data...rs.Open("s...

    bd96500e110b49cbb3cd949968f18be7.png

    I want to insert an image into a mysql database using the adodb connection in vb.net 2008.

    I am using a select query to insert data into database, here is my code for adding or saving data...

    rs.Open("select * from registration where Debt_ID = '" & txtDebt_ID.Text & "' ", cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockPessimistic)

    If rs.RecordCount = 1 Then

    MsgBox("ID already exist!", MsgBoxStyle.Exclamation, vbOK)

    rs.Close()

    cnn.Close()

    Exit Sub

    Else

    rs.AddNew()

    rs.Fields("Debt_ID").Value = txtDebt_ID.Text

    rs.Fields("LastName").Value = txt_Lastname.Text

    rs.Fields("firstName").Value = txt_Firstname.Text

    rs.Fields("MiddleName").Value = txt_Middlename.Text

    rs.Fields("age").Value = txt_Age.Text

    rs.Fields("birthdate").Value = txt_Birthdate.Text

    rs.Fields("civil_status").Value = txtCivil_status.Text

    rs.Fields("address").Value = txt_Address.Text

    rs.Fields("occupation").Value = txt_Address.Text

    rs.Fields("contact_no").Value = txt_Contact.Text

    'rs.Fields("picture").Value = PictureBox1.Image

    rs.Save()

    rs.Close()

    End If

    I wanted to add an image on the database into the field picture and I'm using blob as my datatype for it, I also want to retrieve the image from the database and display it in a picturebox... can someone please help regarding my problem.

    Thanks in advance...

    解决方案

    Regardless of what data access technology or database you use, you need to convert am Image to a Byte first and then save that. On retrieval, you convert the Byte array back to an Image.

    To save:

    Dim connection As New SqlConnection("connection string here")

    Dim command As New SqlCommand("UPDATE MyTable SET Picture = @Picture WHERE ID = 1", connection)

    'Create an Image object.'

    Using picture As Image = Image.FromFile("file path here")

    'Create an empty stream in memory.'

    Using stream As New IO.MemoryStream

    'Fill the stream with the binary data from the Image.'

    picture.Save(stream, Imaging.ImageFormat.Jpeg)

    'Get an array of Bytes from the stream and assign to the parameter.'

    command.Parameters.Add("@Picture", SqlDbType.VarBinary).Value = stream.GetBuffer()

    End Using

    End Using

    connection.Open()

    command.ExecuteNonQuery()

    connection.Close()

    To retrieve:

    Dim connection As New SqlConnection("connection string here")

    Dim command As New SqlCommand("SELECT Picture FROM MyTable WHERE ID = 1", connection)

    connection.Open()

    Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(), Byte())

    connection.Close()

    Dim picture As Image = Nothing

    'Create a stream in memory containing the bytes that comprise the image.'

    Using stream As New IO.MemoryStream(pictureData)

    'Read the stream and create an Image object from the data.'

    picture = Image.FromStream(stream)

    End Using

    That example is for ADO.NET and SQL Server but the principle of using a MemoryStream for the conversion is the same regardless.

    展开全文
  • 当然机器装有mysql数据库然后下载安装Mysql,odbc驱动须要加入... 或者简单点找到ado控件 扔到窗体上 再删除 也行在vb中连接数据库的代码:Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset' 定义数据...

    当然机器装有mysql数据库

    然后下载安装Mysql,odbc驱动

    须要加入ado'菜单"project"->"引用" 找 Microsoft ActiveX Data Object.... 或者简单点找到ado控件 扔到窗体上 再删除 也行

    在vb中连接数据库的代码:

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    ' 定义数据库连接字符串变量

    Dim strCn As String

    ' 定义数据库连接參数变量

    Dim db_host As String

    Dim db_user As String

    Dim db_pass As String

    Dim db_data As String

    ' 定义 SQL 语句变量

    Dim sql As String

    ' 初始化数据库连接变量

    db_host = "localhost"

    db_user = "root" ‘username

    db_pass = "root" ’用户password

    db_data = "radio" '数据库名

    ' MySQL ODBC 连接參数

    '+------------+---------------------+----------------------------------+

    '| 參数名 | 默认值 | 说明 |

    '+------------+------------------------------------------------------–+

    '| user | ODBC (on Windows) | MySQL username |

    '| server | localhost | MySQL 服务器地址 |

    '| database | | 默认连接数据库 |

    '| option | 0 | 參数用以指定连接的工作方式 |

    '| port | 3306 | 连接端口 |

    '| stmt | | 一段声明, 能够在连接数据库后执行 |

    '| password | | MySQL 用户密码 |

    '| socket | | (略) |

    '+------------+---------------------+----------------------------------+

    ' 具体查看官方说明

    ' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html

    strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & _

    "SERVER=" & db_host & ";" & _

    "DATABASE=" & db_data & ";" & _

    "UID=" & db_user & ";PWD=" & db_pass & ";" & _

    "OPTION=3;stmt=SET NAMES GB2312"

    ' stmt=SET NAMES GB2312

    ' 这句是设置数据库编码方式

    ' 中文操作系统须要设置成 GB2312

    ' 这样中文才不会有问题

    ' 版本号要求 mysql 4.1+

    ' 连接数据库

    cn.Open strCn

    ' 设置该属性, 使 recordcount 和 absolutepage 属性可用

    cn.CursorLocation = adUseClient

    ' 訪问表 table1

    sql = "select nicheng,xinqing from nichengandxinqing where uid='1'"

    rs.Open sql, cn

    Dim nicheng As String

    Dim xinqing As String

    '载入用户昵称

    nicheng = rs.Fields(0)

    Label1.Caption = nicheng

    '载入用户心情短语

    xinqing = rs.Fields(1)

    Label2.Caption = xinqing

    '鼠标放在心情短语提示短语具体信息

    Label2.ToolTipText = xinqing

    '载入网络图片

    Image1.Picture = LoadPicture("http://hi.csdn.net/attachment/201201/5/8747069_1325751084ZiD4.jpg")

    展开全文
  • 当然机器装有mysql数据库然后下载安装Mysql,odbc驱动须要加入... 或者简单点找到ado控件 扔到窗体上 再删除 也行在vb中连接数据库的代码:Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset' 定义数据...

    当然机器装有mysql数据库

    然后下载安装Mysql,odbc驱动

    须要加入ado'菜单"project"->"引用" 找 Microsoft ActiveX Data Object.... 或者简单点找到ado控件 扔到窗体上 再删除 也行

    在vb中连接数据库的代码:

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    ' 定义数据库连接字符串变量

    Dim strCn As String

    ' 定义数据库连接參数变量

    Dim db_host As String

    Dim db_user As String

    Dim db_pass As String

    Dim db_data As String

    ' 定义 SQL 语句变量

    Dim sql As String

    ' 初始化数据库连接变量

    db_host = "localhost"

    db_user = "root" ‘username

    db_pass = "root" ’用户password

    db_data = "radio" '数据库名

    ' MySQL ODBC 连接參数

    '+------------+---------------------+----------------------------------+

    '| 參数名 | 默认值 | 说明 |

    '+------------+------------------------------------------------------–+

    '| user | ODBC (on Windows) | MySQL username |

    '| server | localhost | MySQL 服务器地址 |

    '| database | | 默认连接数据库 |

    '| option | 0 | 參数用以指定连接的工作方式 |

    '| port | 3306 | 连接端口 |

    '| stmt | | 一段声明, 能够在连接数据库后执行 |

    '| password | | MySQL 用户密码 |

    '| socket | | (略) |

    '+------------+---------------------+----------------------------------+

    ' 具体查看官方说明

    ' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html

    strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & _

    "SERVER=" & db_host & ";" & _

    "DATABASE=" & db_data & ";" & _

    "UID=" & db_user & ";PWD=" & db_pass & ";" & _

    "OPTION=3;stmt=SET NAMES GB2312"

    ' stmt=SET NAMES GB2312

    ' 这句是设置数据库编码方式

    ' 中文操作系统须要设置成 GB2312

    ' 这样中文才不会有问题

    ' 版本号要求 mysql 4.1+

    ' 连接数据库

    cn.Open strCn

    ' 设置该属性, 使 recordcount 和 absolutepage 属性可用

    cn.CursorLocation = adUseClient

    ' 訪问表 table1

    sql = "select nicheng,xinqing from nichengandxinqing where uid='1'"

    rs.Open sql, cn

    Dim nicheng As String

    Dim xinqing As String

    '载入用户昵称

    nicheng = rs.Fields(0)

    Label1.Caption = nicheng

    '载入用户心情短语

    xinqing = rs.Fields(1)

    Label2.Caption = xinqing

    '鼠标放在心情短语提示短语具体信息

    Label2.ToolTipText = xinqing

    '载入网络图片

    Image1.Picture = LoadPicture("http://hi.csdn.net/attachment/201201/5/8747069_1325751084ZiD4.jpg")

    展开全文
  • 然后下载安装MysqL,odbc驱动需要... 或者简单点找到ado控件 扔到窗口上 再删除 也行在vb中连接数据库的代码:Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset' 定义数据库连接字符串变量Dim strCn A...
  • (ASP)利用VB封装ADODB.Connection保护数据库连接信息1、创建ActiveX Dll2、更改工程名和类名分别为DbActiveX和GetConn3、VB中要进行工程->引用其实主要是引用Active Server Pages Object Library及Microsoft ActiveX...
  • VB连接数据库

    2017-01-11 17:05:52
    VB连接数据库 之一:ADO首先要在“Project”的“参照设定(N)”追加Microsoft ActiveX Data ObjectsSet conn = New ADODB.Connection conn.ConnectionString = "Provider=SQLOLEDB;Persist Security Info=...
  • 我使用ADO连接数据库,通过绑定datagrid控件来显示数据库符合条件的内容。Option ExplicitPrivate Sub Command1_Click()Dim cn As New ADODB.Connection '数据库连接变量Dim Cmd As New ADODB.Command '命令集Dim ...
  • VB中数据库连接代码

    2007-04-11 13:43:14
    Public Function Exesql(ByVal sql As String, msgstring As String) As ADODB.RecordsetDim cn As New ADODB.ConnectionDim cmd As New ADODB.CommandDim rs As New ADODB.RecordsetOn Error G...
  • VB连接Mysql数据库

    2014-07-21 15:52:00
    当然机器装有mysql数据库 然后下载安装Mysql,odbc驱动 须要加入ado'菜单"project"->"引用" 找 Microsoft ActiveX Data Object...在vb中连接数据库的代码: Dim cn As New ADODB.Connection Dim rs As Ne...
  • VB连接SQL数据库示例

    2010-12-01 20:25:26
    VB连接SQL数据库示例 建一个工程,建立一个form1,form1的代码如下: Dim rsNew As ADODB.Recordset Dim CnNew As ADODB.Connection Dim wsh As New WshShell Dim serverlink As String Private Sub Command1_Click()
  • vb.net是不是一般都不用adodb连接和操作记录集了呀?那现在最好的方法是什么呢?有方便效率又高的方法是什么呢?我看到很多都用 OleDbConnection连接数据库,然后用 OleDbDataAdapter把记录集把数据复付到dataset里,...
  • VB- 工程 -引用 – ADO 2.0 ,建一个类DB,工程名设为 SQLCONN 以下是偶程序的部分代码,大家有空可以试试 Option Explicit Public strError As String Public Conn As New ADODB.Connection Public...
  • Option ExplicitPublic Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset whd_project.dsnDim connectstring As StringDim cnn As ADODB.ConnectionDim rst As ADODB.Record
  • 像SQL一样,可以测试是否和数据库连接成功!Private Function TestConnectSqlDatabase(VstrUser As String, VstrPwd As String, VstrServer As String, VstrDataBase As String) As BooleanOn Error GoTo ErrHandle...
  • MsgBox "没有连接数据库", vbOKOnly, "警告" Else connectstring = GetFromINI("数据库信息", "数据库", App.path + "\system.ini") server = GetFromINI("数据库信息", "server", App.path + "\system.ini") ...
  • 打开VB6.0,新建工程SQL_data,新建一个EXE,并添加一个模块。如图 。 一:添加引用和部件(如下两图)蓝色的两个,是要选中打勾的。 注意,一个是“引用”,一个是“部件”。 二:添加一个模块 Data_Sql,并把图下面...
  • 'VB/VBA实现数据库中的文件存取 '示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串 ' '************************************************************************* '** '** 使用 ADODB.Stream ...
  • [VB]连接SQL Server数据库语句汇总

    千次阅读 2006-03-19 18:33:00
    工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)Dim rs As New ADODB.Recordset, cn As New ADODB.Connection向数据库中添加数据Private Sub Command2_Click() If rs....
  • Sub 创建() Set conn = CreateObject("adodb.connection") conn.Open "driver=sql server;...想要取一个当天的数据库中最大的报告号 日期是从EXCEL取得 求出的值放在日期下面 求个高手帮我看看哪里有问题
  • VB/VBA实现数据库与文件的存取

    千次阅读 2013-10-04 18:19:36
    'VB/VBA实现数据库中的文件存取 '示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串 ' '************************************************************************* '** '** 使用 ADODB.Stream ...
  • VB+Access实例:使用ADO连接Access数据库。Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ...
  • VB/VBA实现数据库中的文件存取

    千次阅读 2007-01-31 17:13:00
    VB/VBA实现数据库中的文件存取示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串***************************************************************************** 使用 ADODB.Stream 保存/读取...
  • 'VB/VBA实现数据库中的文件存取

    千次阅读 2006-05-19 13:00:00
    VB/VBA实现数据库中的文件存取示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串***************************************************************************** 使用 ADODB.Stream 保存/读取文件到...
  • 2013-06-07 回答vb连接sql模块。直接拿去用吧。 public conn as new adodb.connection public rs as new adodb.recordset public addflag as boolean public function opencn(byval cip as string) as boolean dim ...

空空如也

空空如也

1 2 3 4
收藏数 67
精华内容 26
关键字:

vb中adodb连接数据库