من میخوام تو vb6 دیتاگریدم رو از پایین نشون بده (آخرین رکورد ثبت شده) آیا ممکنه؟
من میخوام تو vb6 دیتاگریدم رو از پایین نشون بده (آخرین رکورد ثبت شده) آیا ممکنه؟
سلام
بايد اطلاعات رو به صورت برعكس مرتب كنيد، مثلا اگر فيلد Id داريد دستور Sql به شكل زير باشه
Select * from table_name order by id desc
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
آخرین ویرایش به وسیله vbhamed : دوشنبه 14 بهمن 1392 در 10:55 صبح
سلام
با دستور زير آخرين شماره رو بدست بياريد، يكي بهش اضافه كنيد و نشون بديد
Select Count(*)+1 As NewRow From table_name
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
سلام
در خاصيت RecordSource يك كنترل ديتا يا ADO
از DAO استفاده ميكنيد يا Adodc يا Adodb ؟
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
سلام
مسير ديتابيس و نام جدول خودتون رو بزاريد
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;Persist Security Info=False"
cnn.Open
rst.LockType = adLockOptimistic
rst.Open "Select Count(*)+1 As NewRow From table_name", cnn, adOpenDynamic
Label1 = Val(rst!newrow & "")
rst.Close
cnn.close
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
قبول نمیکنه نام جدولم هم come است نام شیئ هم adodc1 می باشد
آخرین ویرایش به وسیله vbhamed : سه شنبه 15 بهمن 1392 در 16:20 عصر
سلام
از روي عبارت قبول نميكنه نميشه فهميد مشكل چيه، اگر پيام خطايي هست دقيق بزاريد وگرنه برنامتون رو بزاريد تا بررسي بشه
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com