PDA

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 مي گيرد.