急问，如何通过vb对sqlser2000中的数据库进行增删字段的操作？？？

jishibo 2004-07-20 08:23:51

我现在要在vb里实现对sqlser2000中的表进行操作的功能！不知道怎么写！请做过的朋友帮个忙啊。

...全文

104 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

jishibo 2004-07-21

打赏
举报

ALTER TABLE table_name <ADD column_name data_type; |MODIFY column_name data_type;>
这个sql语句可以增加新的字段。ALTER TABLE 语句可以帮助你做两件事
加入一列到已经存在的表中
修改已经存在的表中的某一列
这是我在sql语法书中找到语句。但是没有提到删除字段的语句，请做过的朋友告知一下是哪个语句。

cqm2099 2004-07-21

打赏
举报

TO: xiaoyvr(绿草)
说得有道理!~

楼主当你源表有数据还去改表的结构的话将会出现很多你意想不到的错误,比如说你设了非空等,

iming 2004-07-21

打赏
举报

A. Alter a table to add a new column
This example adds a column that allows null values and has no values provided through a DEFAULT definition. Each row will have a NULL in the new column.

CREATE TABLE doc_exa ( column_a INT)

GO

ALTER TABLE doc_exa ADD column_b VARCHAR(20) NULL

GO

EXEC sp_help doc_exa

GO

DROP TABLE doc_exa

GO

B. Alter a table to drop a column
This example modifies a table to remove a column.

CREATE TABLE doc_exb ( column_a INT, column_b VARCHAR(20) NULL)

GO

ALTER TABLE doc_exb DROP COLUMN column_b

GO

EXEC sp_help doc_exb

GO

DROP TABLE doc_exb

GO

xiaoyvr 2004-07-21

打赏
举报

你自己更改一下数据库，然后生成更改脚本，然后打开脚本看不就得了......

jishibo 2004-07-21

打赏
举报

按楼上所说，源表的数据那岂不是全丢了？？有这么麻烦吗？？我想应该有sql语句能实现这一功能吧。

jishibo 2004-07-21

打赏
举报

谢谢楼上问题已解决。如iming()的方法

cqm2099 2004-07-20

打赏
举报

如果真要做的话,也同样可以实现,你先删除原来的表,再建立一个表名相同但字段更多的表或更少的表!~

cqm2099 2004-07-20

打赏
举报

sqlser2000中的字段,你是说要改变表的结构吗?如果是的话:表建立后最好不要随意修改,不然程序的维护工作将相当难做.

jinesc 2004-07-20

打赏
举报

你去找本TSQL 的书看看，我上面有增加记录和更新记录并没有写删除记录的例子

jishibo 2004-07-20

打赏
举报

谢谢楼上的。请问执行增加字段的sql语句又是什么？

jinesc 2004-07-20

打赏
举报

Public cn As New ADODB.Connection

Sub main()
cn.Open "Driver={SQL Server};Server=192.168.1.8;Uid=sa;Pwd=*******;Database=cb2004"

If Text2.Tag = "" Then
SQL = "insert into s_tab_hsxm(xmmc,xmjc,xmlb,xmys) values("
SQL = SQL & "'" & Trim(Text2) & "',"
SQL = SQL & "'" & Trim(Text3) & "',"
SQL = SQL & "" & Combo1.ListIndex & ","
SQL = SQL & "" & Combo2.ListIndex & ")"
Else
SQL = "update s_tab_hsxm set "
SQL = SQL & "xmmc='" & Trim(Text2) & "'"
SQL = SQL & ",xmjc='" & Trim(Text3) & "'"
SQL = SQL & ",xmlb=" & Combo1.ListIndex & ""
SQL = SQL & ",xmys=" & Combo2.ListIndex & ""
SQL = SQL & " where idd=" & Text2.Tag
End If
cn.Execute SQL
End Sub

jishibo 2004-07-20