چگونگی تعریف AutoNumber اکسس در vb2008

[یاشار رضایی نسب]

cmm.CommandText = ("create table " & TextBox1.Text & "(id AutoNumber not null,nam char not null)")
سلام من این کد نوشتم ولی برای AutoNumber ایراد میگره ولی خوب Number رو قبول می کنه که بدرد من نمی خوره ، حال بجای AutoNumber از چی استفاده کنم ؟

[gol.mohsen]

سلام.
دوست عزیز در قسمت پروپرتی مربوط به هر ستون یک Identity وجود داره که اگه Yes بکنیش بصورت اتونامبر میشه.
البته به صورت پیش فرض هم از 1 شروع میشه که میتونی تغییرش بدی.

موفق باشی

[یاشار رضایی نسب]

سلام.
دوست عزیز در قسمت پروپرتی مربوط به هر ستون یک Identity وجود داره که اگه Yes بکنیش بصورت اتونامبر میشه.
البته به صورت پیش فرض هم از 1 شروع میشه که میتونی تغییرش بدی.

موفق باشی
سلام میشه بیشتر توضیح بدین ، من فیلد ها رو با کد نویسی تعریف می کنم .

[alimanam]

با سلام

از این کدی که واستون نوشتم میتونین استفاده کنین .

توضیحات تکمیلی :

در بانک اکسس برای اینکه با کد نویسی بتونین فیلد AutoNumber بسازین از کلمه کلید Counter بعد از نام فیلد استفاده میکنیم .


Public Class Form1
Private cnnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb;"
Dim cnn As New OleDb.OleDbConnection(cnnString)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim cmd As New OleDb.OleDbCommand("CREATE TABLE Test(id COUNTER PRIMARY KEY,FirstName TEXT (25),LastName TEXT (30))", cnn)
If cnn.State = ConnectionState.Closed Then cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
MsgBox("Fields Created !")
Catch ex As Exception
cnn.Close()
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try

End Sub
End Class

موفق باشید ./

[یاشار رضایی نسب]

بسیار متشکرم .