用ADO ,command执行增加列的SQL的语句为什么对有的数据库成功。有的失败呢。
数据库用SQL 2000
If FSize = "0" Then
SQL = "alter table " & CboTarget.Text & " with nocheck add " & FName & " " & Ftype
Else
SQL = "alter table " & CboTarget.Text & " with nocheck add " & FName & " " & Ftype & " (" & FSize & ")"
End If
QyTarget.CommandText = SQL
QyTarget.Execute
'cnTarget.Mode=adModeReadWrite
'cnTarget.Execute SQL
数据库用SQL 2000
If FSize = "0" Then
SQL = "alter table " & CboTarget.Text & " with nocheck add " & FName & " " & Ftype
Else
SQL = "alter table " & CboTarget.Text & " with nocheck add " & FName & " " & Ftype & " (" & FSize & ")"
End If
QyTarget.CommandText = SQL
QyTarget.Execute
'cnTarget.Mode=adModeReadWrite
'cnTarget.Execute SQL
解决方案 »
- 把同一个picturebox中的一块图像复制到另一块位置,怎么做最快?
- 关于VSFLEXGRID控件的奇怪问题
- CallByName函数的使用
- 請教一個方法.
- 查询问题?
- 求各种代理协议详细资料!
- 这句语句该怎样解释?
- 我想在excle中编一段vba程序,但是我对vba了解很少,请各位给个提示
- datagrid,mshflexgrid,msflexgrid这三个网格控件,大家谈谈各自使用的经验
- 关于form_activate()
- SOS!!!!!!!!请问各位牛人,我想用VB制作一个可供WORD插入的对象,就象在WORD中插入的"画笔图片"对象,请问如何来作???
- 我用一句[mciSendString "status MyCD number of tracks", vbNullString, 0, 0]返回CD盘上的曲目总数,可是我想使用这个总数,用什么办法能
引用Microsoft ActiveX Data Objects 2.0 LibraryDim mconn As New ADODB.Connection
Dim resect As New ADODB.Recordset
mconn.ConnectionTimeout = 10
mconn.CursorLocation = adUseClient
mconn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=" & computername
mconn.Execute "if exists(select * from dbo.sysdatabases where name='libraryMIB')" & vbCrLf & "drop database libraryMIB"
mconn.Execute "create database libraryMIB"
mconn.Execute "use libraryMIB"
mconn.Execute "create table admin(用户名 char(20),密码 char(20));"全部人用过,都不会有问题,我想用Microsoft ActiveX Data Objects 2.0 Library会好一点,或是用
Microsoft ActiveX Data Objects 2.6 Library新一点!
所以你说的很正常~~~~