View Full Version : سوال: گفتن آخرین مقدار یک فیلد AutoNumber
mohsen gh
پنج شنبه 10 شهریور 1390, 15:13 عصر
سلاو دوستان من میخوام آخرین مقدار فیلد AutoNumber دیتابس برناممو بدست بیارو چیکار کنم ؟؟؟ (تعداد رکوردهارو نمیگم )آخرین مقدار
2- چطور میتونم اطلاعات یک فیل رو کامل بندازم تو یه کمبوباکس ؟؟؟
alimanam
پنج شنبه 10 شهریور 1390, 15:17 عصر
با سلام
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
پنج شنبه 10 شهریور 1390, 20:44 عصر
سلام يه را ساده تر فقط كافيه كه بنويسي
dim cmd as new sqlcommand
sqlcon) ,"cmd=new sqlcommand("select max(id) from yourTableName
cmd.executescalar
ببخشيد كه يكم بهم ريخته شد هركاري كردم نشد درستش كنم .
mohsen gh
پنج شنبه 10 شهریور 1390, 21:33 عصر
با سلام
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
جمعه 11 شهریور 1390, 00:36 صبح
دوست من لطف کردی جواب دادی ولی مشکل داشت چیکار کنم ؟؟؟ کدش که خیلی ساده بود مشکلش چیه ؟!!!!
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.