为什么不去找找旧贴呢? 有SQL语句的呀
解决方案 »
- 在 Win7下 运行Adodc1.Refresh 就出错 "无效的授权说明"
- 在vb.net中,如何提取上一个界面控件中的信息啊....
- vb和EXCEL及数据库问题
- 问一个关于显示image字段的图片的小问题
- 客户端怎么连接服务器端的oracle数据库
- 带来大麻烦的小问题,请进!
- list框height属性
- 如何让Flash控件响应键盘操作
- 如何做到用VB来拷贝A驱磁盘中的所有文件包括文件夹及文件夹里的文件?
- 问个问题:在窗体有个按纽,当按下按纽后,可以使打印机的纸张设置由纵向改为横向吗?不是出现打印机设置对话框手动设置。
- LoadLibrary调用动态连接库,如何重命名该dll里函授名?(50分)
- 高分请教:在VB中如何将一个进程注册为服务器进程
Dim ADO_Rset As New ADODB.Recordset
Dim AdoStr As String
'如果你的数据库不是 2000或以上的.那么Microsoft.Jet.OLEDB应该是3.0
AdoStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Persist Se
curity Info=False"
With ADO_Rset
.ActiveConnection = AdoStr
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
'修改"姓名"字段
.Source = "ALTER TABLE 学生 ALTER COLUMN 姓名 text(30)"
.Open
'增加"性别"字段
.Source = "ALTER TABLE 学生 ADD 性别 text(20)"
.Open
'删除"籍贯"字段
.Source = "ALTER TABLE 学生 DROP COLUMN 籍贯"
.Open
End With
Set ADO_Rset = Nothing
"ALTER TABLE 学生 ALTER COLUMN 性别 Boolean"
好象不行呀……
用zergs(zergs) 的方法能成功
至于各种数据类型是怎样表示的,请看下表Microsoft Access data type OLE DB type indicator
BINARY (< 255 bytes) DBTYPE_BYTES
BIT DBTYPE_BOOL
BYTE DBTYPE_UI1
COUNTER DBTYPE_I4
CURRENCY DBTYPE_CY
DATETIME DBTYPE_DATE
DOUBLE DBTYPE_R8
GUID DBTYPE_GUID
LONG DBTYPE_I4
LONGBINARY DBTYPE_BYTES
LONGTEXT DBTYPE_STR
SHORT DBTYPE_I2
SINGLE DBTYPE_R4
TEXT (< 255 bytes) DBTYPE_STR 由此可见你的"ALTER TABLE 学生 ALTER COLUMN 性别 Boolean"应变为
" ALTER TABLE 学生 ALTER COLUMN 性别 BIT "
你试试,一定成功