VB-数据库 向表添加字段 自动编号类型 adNumeric

求助数据库高手，关于SQL Server 自动编号的问题。~

自增列，类型为identity int,numeric 等整型的数据类型，又称为标识列。
一般不用给它赋值，它是自已增加的，
如果是第一行那它们连续自动增加，
如果在经常进行删除操作的表中存在着标识列，那么在标识值之间可能会有间隔。如果这是要考虑的问题，那么请不要使用 IDENTITY 属性。但是，为了确保未产生间隔，或者填补现有的间隔，在用 SET IDENTITY_INSERT ON 显式输入标识值之前，请先对现有的标识值进行计算。
如果要重新使用已删除的标识值，则可使用示例 B 中的示例代码来查找下一个可用的标识值。使用表名称、标识列数据类型和（该数据类型）的最大允许值数值 -1 来替代 tablename、column_type 和 MAX(column_type) - 1。
使用 DBCC CHECKIDENT 检查当前的标识值，并将其与标识列中的最大值进行比较。

当表记录truncate table时，表的identity则被重置。

float就行了，或者也可以是Money类型.

这是我以前写的一段VB代码
把以下代码贴到一按钮click事件里，运行下。C盘就会生成一个1.mdb数据库，其中id为“自动编号类型”
====================
'需引用MS ADO Ext. for DDL
Dim cat As New ADOX.Catalog

''建数据库
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\1.mdb"
Dim tbl1 As New Table
Dim idx1 As New ADOX.Index
tbl1.Name = "KType" '字段
Set tbl1.ParentCatalog = cat
tbl1.Columns.Append "ID", adInteger '字段
tbl1.Columns("ID").Properties("Autoincrement") = True ‘这句该是你要的
tbl1.Columns.Append "KeyType", 202, 20
idx1.Name = "idxFile1"
idx1.Columns.Append "ID"
idx1.PrimaryKey = True
idx1.Unique = True
tbl1.Indexes.Append idx1
cat.Tables.Append tbl1
Set cat = Nothing

create table 表名
(
列名 类型如:int,smallint identity(1,2),
--参数1是设置初始值,即第一行的值,2是设置递增量
)

其中identity声明该列为自动编号列

tb.Columns.Append "bID", adLong试试

---

商州区18692622709： VB - 数据库 向表添加字段 自动编号类型 adNumeric - ？
司马闵诺辰： 这是我以前写的一段VB代码 把以下代码贴到一按钮click事件里,运行下.C盘就会生成一个1.mdb数据库,其中id为“自动编号类型” ==================== '需引用MS ADO Ext. for DDL Dim cat As New ADOX.Catalog''建数据库 cat.Create...

商州区18692622709： 怎样在VB中用一段语句,实现自动向数据库添加数据 - ？
司马闵诺辰： 看样子好像是将01,02,03,04这四个值进行不重复的组合插入,但是这里楼主说得模糊了,01,02,03,04这几个数怎么会是数值类型呢?,数值类型应该是1,2,3,4才对,dim i,j,k,l as integer dim Sqlstr as string for i=1 to 4 do begin for j=1 to 4 do ...

商州区18692622709： vb 设置数据库编号自增 - ？
司马闵诺辰： 创建或设计数据库时,添加自增的字段,数据类型设置为自动编号就行了,不用控制了,会自动编号的.

商州区18692622709： vb,我想实现按按钮像access表里添加text里写入的记录,表中其中一个字段是自动编号,请问该怎么写代码? - ？
司马闵诺辰： 自动编号那个不用管,由ACCESS自己完成,你只要把其它字段内容放进去就行了.

商州区18692622709： 用VB代码创建一个data.mdb,如何实现＂字段ID＂数据类型为“自动编号” - ？
司马闵诺辰： 我是VB新手,不会用ADOX,这是我用过的一个建自动编号字段的方法,不知合不合用.'引用Microsoft ActiveX Data Objects 2.0 Library Private Sub Command1_Click() Dim db2 As New Connection Dim dbmm As String dbmm = ＂＂ db2....

商州区18692622709： vb 对sqlserver 采用SQL语句进行动态创建字段 - ？
司马闵诺辰： 没用过VB,不过可以参考下.1. 首先数据表wxl应该提前创建好,不论是在数据库先创建,还是在VB中动态创建2. 数据表的字段是通过VB的MSFlexGrid上给出的字段,那么字段名和类型就可以作为存储过程的参数.sqlserver中用动态SQL执行...

商州区18692622709： vb中如何在同一数据库里多表添加字段??? - ？
司马闵诺辰： 连接数据库的方法简单说下(ACCESS) Dim cn As New ADODB.Connection If Right(App.Path, 1) = ＂\＂ Then Path = App.Path Else Path = App.Path & ＂\＂ End If cnStr = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & Path & ＂数据...

商州区18692622709： vb中,如何在access数据库的表里增加一个字段 - ？
司马闵诺辰： Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open strConn 'strConn是事先定义好的一个数据库连接字符串 rs.Open ＂select * from 公司资料＂, cn, ...

商州区18692622709： 知道的过来帮帮手啊!VB+ACCESS 用ADO怎样在已存在表中动态添加新字段,先谢过啦!？
司马闵诺辰： 请问:我想把文本框里的中文字添加为字段,应该怎么样写程序,谢谢!xxzl 为表名  conn.Execute "ALTER TABLE  xxzl  ADD COLUMN "&text1.Text&"  char(10)"

商州区18692622709： 请问在使用VB建立mdb数据库时,如何将字段属性设为自动编号?还? ？
司马闵诺辰： 用create table aaa(field1 AutoIncrement)可实现你想要的功能 代码如下: '菜单“工... text(10))＂ '建立aaa表,字段filed1为自动编号型,字段field2为10位字符型 Con. ...