گفتن آخرین مقدار یک فیلد AutoNumber

[mohsen gh]

سلاو دوستان من میخوام آخرین مقدار فیلد AutoNumber دیتابس برناممو بدست بیارو چیکار کنم ؟؟؟ (تعداد رکوردهارو نمیگم )آخرین مقدار

2- چطور میتونم اطلاعات یک فیل رو کامل بندازم تو یه کمبوباکس ؟؟؟

[alimanam]

با سلام

Private Function SetMax() As Integer
Dim maxis As Integer

Dim cnn As OleDbConnection
Dim cmd As New OleDbCommand

cnn = New OleDbConnection(yourCnnStringHere !)
cnn.Open()
cmd.Connection = cnn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select max(id_fld) from table1"

If cmd.ExecuteScalar Is DBNull.Value Then
maxis = 1
Else
maxis = cmd.ExecuteScalar + 1
End If
cnn.Close()
Return maxis
End Function

موفق باشید ./

[ebraham]

سلام يه را ساده تر فقط كافيه كه بنويسي
dim cmd as new sqlcommand
sqlcon) ,"cmd=new sqlcommand("select max(id) from yourTableName
cmd.executescalar
ببخشيد كه يكم بهم ريخته شد هركاري كردم نشد درستش كنم .

[mohsen gh]

با سلام

Private Function SetMax() As Integer
Dim maxis As Integer

Dim cnn As OleDbConnection
Dim cmd As New OleDbCommand

cnn = New OleDbConnection(yourCnnStringHere !)
cnn.Open()
cmd.Connection = cnn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select max(id_fld) from table1"

If cmd.ExecuteScalar Is DBNull.Value Then
maxis = 1
Else
maxis = cmd.ExecuteScalar + 1
End If
cnn.Close()
Return maxis
End Function

موفق باشید ./
دوست من لطف کردی جواب دادی ولی مشکل داشت چیکار کنم ؟؟؟

[alimanam]

دوست من لطف کردی جواب دادی ولی مشکل داشت چیکار کنم ؟؟؟ کدش که خیلی ساده بود مشکلش چیه ؟!!!!