PDA

View Full Version : سوال: مشکل در دیتاگراید



mehrdad hamid reza
چهارشنبه 24 تیر 1388, 19:51 عصر
سلام من میخوام اخرین عدد وارد شده در یک ستون را بگیرم و در یک textbox بریزم ویک واحد به ان اضافه کنم لطفا کمکم کنید

kablayi
چهارشنبه 24 تیر 1388, 23:45 عصر
از این تابع برای بدست آوردن کد اتوماتیک استفاده کنید ... :



Public constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pplication.StartupPath & "\Database.mdb;Persist Security Info=True"
Public cn As New OleDbConnection(constr)

Public Function Autocode(ByVal Tablename As String) As String
Try
Dim ID As String
strsql = "select max(ID) From " & Tablename
cmd = New OleDbCommand(strsql, cn)
cn.Open()
ID = cmd.ExecuteScalar.ToString
cn.Close()
If ID = "" Then
ID = "1000"
Else
ID = CStr(CInt(ID) + 1)
End If
Return ID
Catch ex As Exception
MessageBox.Show("...تراکنش ایجاد کد انجام نشد", "پیغام", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Return ""
End Try
End Function

mehrdad hamid reza
پنج شنبه 25 تیر 1388, 11:57 صبح
ازت ممنونم ولی بانک من sql هست و نتونستم این کدها را برای sql تبدیل کنم البته شما منظور منا به خوبی فهمیده اید

kablayi
پنج شنبه 25 تیر 1388, 13:27 عصر
اینم از کد برای SQL که anooshiran زحمتشو کشیده ... :
http://barnamenevis.org/forum/showpost.php?p=686110&postcount=2