110,538
社区成员
发帖
与我相关
我的任务
分享
Public Function CreateTableTest() As String
Dim M_str_sqlcon As String = "server=马赛克IP地址" & ";user id=马赛克用户名;password=马赛克密码;database=text;port=999"
Dim M_str_sqlstr As String = "create table 随笔" & "(ID integer identity(1,1) primary key ,标题 Text not null,副标题 Text,摘要 Text,来源 Text,正文文本 Text,正文数据 OLEobject,缩略图 OLEobject,采编 Text,时间 Datetime,权限 integer,属性 Text )"
Dim mysqlcon As New MySqlConnection(M_str_sqlcon)
mysqlcon.Open() '这一句报错
Dim mysqlcom As New MySqlCommand(M_str_sqlstr, mysqlcon)
mysqlcom.ExecuteNonQuery()
mysqlcom.Dispose()
mysqlcon.Close()
mysqlcon.Dispose()
Return "OK"
End Function