ارتباط بانک SQL با VB

[maryam206]

برای ارتباط بانک SQL SERVER با VB تمام مراحل انجام شده و اطلاعات از روی دو فرم روی صفحه میآید
اما برای ارتباط برقرار کردن بین دو جدول در قسمت
Private Sub DataList1_Click()
'data1.RecordSource = "select * from synop_ddff where stcode= ' " + DataList1.Text + " ' ;"
' data1.Refresh

End Sub
برنام خطا SYNTEX می دهد لطفا مرا راهنمایی کنید.

[amir_cpp]

اولا شما باید به جای + از & استفاده کنید؛
ثانیاً " رو هم مستقیماً استفاده نکنید، یعنی یه const تعریف کنید و مقدارش رو " قرار بدین و در کدتون استفاده کنین.

[h_sadeghynejad]

ثانیاً " رو هم مستقیماً استفاده نکنید، یعنی یه const تعریف کنید و مقدارش رو " قرار بدین و در کدتون استفاده کنین.
فکر نکنم مشکل از این باشه چون من خودم این کار رو میکنم و خیلی راحت کار میکنه البته در مورد & موافقم

'data1.RecordSource = "select * from synop_ddff where stcode= ' " + DataList1.Text + " ' ;"
در مورد این دستور فکر کنم که ته دستوری نیازی به ; نباشه اما با Debug دستور رو بیارید توی خود SQL و اونجا چک کنید هر اشکالی داشته باشد به شما میگه

[maryam206]

فرمت دستور و تما لینکها درست است کنترل کردم.

[maryam206]

چطوری یک const تعریف کنم؟

[amir_cpp]

در بخش declaration بنویسید:

const cname=value
example: const str1="amir"

[nikzat]

سلام MAryam206 من مشکل ارتباط ارتباط VB با SQL دارم چگونه این کا را میتوانم انجام دهم .
منتظر راهنمایی شما هستم .

[shohreh_holoo]

اول باید مشخص کنی که این کارو با aDO انجام دادی یا نه؟ در قسمت PROPERTIES اتصالات را انجام بده فیلد های DATA SOURCE.RECORD SOURCE را مشخص کنید

[maryam206]

میخواهم دربانک ویژوال بیسیک که با SQL درارتباط است یک گزارش تهیه کنم که البته این کار را انجام داده ام اما مشکل سر این است که وقتی می خواهم آن گزارشی را که من پارامتر وارد می کنم به من پیغام خطا می دهد.
کد گزارش را به این صورت نوشته ام .
DataEnvironment1.Connection1 = "select * from syniptempdayminbelow00 where stcode='" & Form83.Text4.Text & "'and yeard='" & Form83.Combo2.Text & "'"
DataReport1.Show
DataReport1.Refresh