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" 但是却一直报上面的错 请帮忙分析下 谢谢!

展开

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
评论

打赏作者

侍酒师小田

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值