View Full Version : کد نویسی در vb.net2003
sheida-peyravi
یک شنبه 13 مرداد 1387, 10:01 صبح
با سلام به تمامی دوستان
من در حال نوشتن یک پروژه هستم و چندان فرصتی هم ندارم. در ضمن هیچ دوست یا آشنایی ندارم که با vb.net کار کرده باشد . استاد راهنمایم هم با این برنامه کار نکرده است:عصبانی++: ( vb.net 2003 و SQL 2000)
من به روالی که برای انجام پروژه ام باید طی شود آگاهی دارم ولی مشکلم سر نوشتن کدهاست .نمی توونم به تنهایی کدها را پیاده سازی کنم.
لطفا من را راهنمایی کنید . :متفکر:
با تشکر
یک دوست
یک شنبه 13 مرداد 1387, 11:00 صبح
سلام دوست عزیز
من با vb.net 2005 کار کردم ولی sql server 2000 رو بلدم اگر می تونم کمکی بهتون بکنم خوشحال می شم من رو در جریان بذارین
sheida-peyravi
یک شنبه 13 مرداد 1387, 11:22 صبح
من فقط تیبل در SQL ساخته ام و تمام کارهایی که تا به حال انجام دادم اعم از ارتباط با دیتابیس و select وغیره را با کد انجام داده ام و از wizard استفاده نکرده ام.
این پروژه ارسال ایمیل با vb.net است به علاوه یک بخش loginکه از مهمترین قسمتهای پروژه است .ارتباط با دیتابیس ایجاد شده فقط اشکال در بعضی بخشهایی مثل: error درپر کردن combobox,listbox , .... میباشد.
milade
دوشنبه 14 مرداد 1387, 09:41 صبح
سلام چه اروری میده ؟
چه جوری می خوانی اطلاعات رو(dataset یا ...)
بیشتر توضیح بده
بای
sheida-peyravi
دوشنبه 14 مرداد 1387, 11:18 صبح
مثلا من چند بار بايند كردن اطلاعات به كمبوباكس رو تست كردم .يك بار اصلا بايند نمي كرد .يك بار هر دو كمبو باكس رو بايند كرد اما حالا error رو براي اوني مي ده كه درست بايند شده .!!!!!!!!!
خودتون ملاحظه كنيد.
اين كد من است.
Dim daTest5 As New SqlDataAdapter
Dim cnTest5 As New System.Data.SqlClient.SqlConnection
Dim dstest5 As New DataSet
Dim strSql5 As String
Dim strCn5 As String = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=""DB-university"";Data Source=""user-cf89685757"""
Dim sqlCmd5 As New SqlCommand
cnTest5.ConnectionString = strCn5
Dim myDT5 As New DataTable
dstest5.Clear()
Dim datest6 As New SqlDataAdapter
Dim dstest6 As New DataSet
Dim strSql6 As String
Dim sqlCmd6 As New SqlCommand
Dim myDT6 As New DataTable
dstest5.Clear()
dstest6.Clear()
' open the connection
' open the connection
Try
cnTest5.Open()
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Source)
End Try
strSql5 = "SELECT * FROM u_term "
strSql6 = "SELECT * FROM u_vorudi "
sqlCmd5.CommandText = strSql5
sqlCmd5.Connection = cnTest5
daTest5.SelectCommand = sqlCmd5
sqlCmd6.CommandText = strSql6
sqlCmd6.Connection = cnTest5
daTest6.SelectCommand = sqlCmd6
Try
daTest5.Fill(dstest5)
myDT5 = dstest5.Tables(0)
datest6.Fill(dstest6)
myDT6 = dstest6.Tables(0)
For i As Integer = 0 To myDT6.Rows.Count - 1
cbvorudi.DataSource = myDT6
cbvorudi.DisplayMember = "vorudi"
cbvorudi.ValueMember = "Idvorudi"
cbvorudi.SelectedValue = -1
cbvorudi.DataBindings.Add("SelectedValue", dstest6, "vorudi")
Next
For i As Integer = 0 To myDT5.Rows.Count - 1
cbterm.DataSource = myDT5
cbterm.DisplayMember = "term"
cbterm.ValueMember = "Idterm"
cbterm.SelectedValue = -1
'cbterm.DataBindings.Add("SelectedValue", dstest5, "term")
Next
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Source)
End Try
' close the connection
cnTest5.Close()
cnTest5 = Nothing
End Sub
cbvorudi درست پر ميشود اما cbterm نميشود.
واين Error را ميدهد.
cannot bind to property or column vorudi on datasource
parametername =datamember
:عصبانی++:
يكي به من بگه با كدي كه يك دقيقه كار مي كنه و دفعه ي ديگه كار نميكنه چي كار بايد كرد؟:متعجب: زماني كه وقت زيادي هم نداري
ali_md110
دوشنبه 14 مرداد 1387, 14:47 عصر
اگه میخوای کمبو باکس رو از داده پر بکنی خیلی سادست نیازی به این همه کد نداره
یه مثال براتون زدم البته با اکسس
یه بانگ بساز نام db با یک چدول بنام table1 با دو فیلد desو idدر پوشه debug برنامت
ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
Dim CNN As OleDbConnection
Dim DAP As OleDbDataAdapter
Dim DS As DataSet
Dim cnnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb"
CNN = New OleDbConnection(cnnstr)
cmd = New OleDbCommand
DAP = New OleDbDataAdapter("select * from table1", cnnstr)
DS = New DataSet
DAP.Fill(DS, "table1")
ComboBox1.DataSource = DS.Tables("table1")
ComboBox1.DisplayMember = "des"
ComboBox1.ValueMember = "id"
DAP.Dispose()
sheida-peyravi
سه شنبه 15 مرداد 1387, 09:33 صبح
من هم كه همين كارها را كرده ام .Datasource,displaymember,valuemember را تعريف كرده ام
اما نمي دانم autocompletemode,autocompletesource اي كه تعريف كرده ايد چه كاربردي دارد .در ضمن كه براي VB.net2003 نيز ناشناخته مي باشد وError مي گيرد.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.