m2011kh
جمعه 29 دی 1391, 11:17 صبح
سلام به همه دوستان و اساتید.
من یه برنامه دفترچه تلفن دارم که تصویرش رو هم ضمیمه کردم.
یه دیتا گرید به کنترل Ado متصل هست و Ado هم به دیتا بیسم.وقتی سرچ میکنم دیتا گرید روی مورد پیدا شده علامت میزاره(تو تصویر 1 مشخصه).
ولی میخوام که همینطور که روش علامت گذاشت اون رو انتخاب کنم(تصویر شماره 2).
______________________
ببخشید یه سوال دیگه هم دارم.
به دلیل این که میخوام برنامه ام چند کاربره باشه میخوام با کد نویسی برای هر کاربر یک جدول جداگانه ایجاد کنم.
برای ایجاد جدول از این کد استفاده میکنم:
On Error Resume Next
Const strconnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = strconnection
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "create table " + Text1.Text + " (a varchar(10), b number)"
cmd.Execute
cnn.Close
ولی نمیدونم چطور باید رکوردی از نوع autoNumber ایجاد کنم.
در این زمینه هم از کمکتون خیلی خوشحال میشم.
من یه برنامه دفترچه تلفن دارم که تصویرش رو هم ضمیمه کردم.
یه دیتا گرید به کنترل Ado متصل هست و Ado هم به دیتا بیسم.وقتی سرچ میکنم دیتا گرید روی مورد پیدا شده علامت میزاره(تو تصویر 1 مشخصه).
ولی میخوام که همینطور که روش علامت گذاشت اون رو انتخاب کنم(تصویر شماره 2).
______________________
ببخشید یه سوال دیگه هم دارم.
به دلیل این که میخوام برنامه ام چند کاربره باشه میخوام با کد نویسی برای هر کاربر یک جدول جداگانه ایجاد کنم.
برای ایجاد جدول از این کد استفاده میکنم:
On Error Resume Next
Const strconnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = strconnection
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "create table " + Text1.Text + " (a varchar(10), b number)"
cmd.Execute
cnn.Close
ولی نمیدونم چطور باید رکوردی از نوع autoNumber ایجاد کنم.
در این زمینه هم از کمکتون خیلی خوشحال میشم.