vb库存mysql_vb高手进，vb连接mysql数据库，怎么把数据写入数据库！

我在连接数据库的时候会报数据源太长，而且还会出现类型不匹配的情况！我的代码如下各位高手帮忙看下：所有的变量定义都是：dimXXPrivateSubCommand4_Click()DimconnAsNewADODB.Conne...

我在连接数据库的时候会报数据源太长 ，而且还会出现类型不匹配的情况！

我的代码如下各位高手帮忙看下：

所有的变量定义都是：dim XX

Private Sub Command4_Click()

Dim conn As New ADODB.Connection '创建一个连接实例

Dim rs As ADODB.Recordset '创建一个recordset实例，因为经常要用 所以不用new

Dim CnStr As String '创建两个字符串变量

Dim Sql As String

Dim db_host As String '连接所需要的变量

Dim db_user As String

Dim db_pass As String

Dim db_data As String

Dim db_ip As String

Dim i As Integer, j As Integer

Dim strline As String

db_host = "localhost"

db_user = "root"

db_pass = ""

db_data = "al_dbform" '开始连接数据库

db_ip = "C:\Program Files\MySQL\MySQL Server 5.1\bin\" ‘数据库安装目录

CnStr = "DRIVER={MySQL ODBC 5.1 Driver};" & _

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

"Data Source=" & db_ip & ";" & _

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

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

"OPTION=4;"

conn.Open CnStr, db, 3

conn.CursorLocation = adUseClient

conn.Open CnStr, db, 3

For i = 0 To UBound(cs) - 1

Sql = "insert into forminfo1(FormType,FormStatus,FormCodeStart,FormCodeEnd,Reason,Remark,OperationTime) values(" + ft + ",'" + fs + "," + cs(i) + "','" + ce(i) + "'," + rss + ",'" + Text1.Text + "'," + Now() + ")" ’rss回报类型不匹配

conn.Execute Sql

Next i

conn.Close

Set conn = Nothing

End Sub

请高手指点下 ！

数据库的类型都是设定varchar类型的。

我稍微改了以下 但是现在却出现这个错误：

实时错误‘-2107477259 (80004005)’；

[Mysql][ODBC 5.1 Driver]Access denied for user 'root'@'localhost'(using password:YES)

代码上没有太大的改变就是重新添加了odbc驱动和设置的数据源，把db_ip去掉了 换成了db_port="3306" 但是却一直报上面的错 请帮忙分析下 谢谢！

展开