کمک فوری ، خیلی لازم دارم !

[javadh]

سلام به بچه ها ،

1 سورس کد می خوام که بتونه ، 1 تکس بکس رو از طریق کد نویسی به به فیلد 1 دیتا بیس وصل نکه ! ( نه از طریق پروپرتیس تکی بکس ) :لبخندساده::افسرده:

1 سورس کد دیگه هم لازم داشتم ، تیبل های 1 دیتا بیس رو توی 1 کامبو بکس بتونه نشون بده !
:لبخندساده::افسرده:

خیلی لازم دارم خواهشن سورس رو واسم بزارید !

[mahdyeh]

سلام
سورس کد می خوام که بتونه ، 1 تکس بکس رو از طریق کد نویسی به به فیلد 1 دیتا بیس وصل نکه ! ( نه از طریق پروپرتیس تکی بکس )
اگه منظوره شما از DataBase همون SQL باشه و اگه بخوای از change اون TextBox وصل بشی ...کدش به این صورت هست (البته اینو بایستی تو قسمت Text1_change بنویسی):


Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=TelDateBase;Data Source=."
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "دستور برنامه رو باید بنویسی "
cmd.CommandType = adCmdText



سورس کد دیگه هم لازم داشتم ، تیبل های 1 دیتا بیس رو توی 1 کامبو بکس بتونه نشون بده !

باز اینجا هم اگه منظورتون از DataBase .مالSQL هست میتونید از کد زیر استفاده بکنید :



Dim rec As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=First;Data Source=."
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "select code from nameteam "
cmd.CommandType = adCmdText
Set rec = cmd.Execute
While rec.EOF = False
Combo1.AddItem rec(0).Value
rec.MoveNext
Wend

[oxygenws]

تیتر نامناسب.
به احترام «مهدیه» حذف نشد.