if
شنبه 15 اردیبهشت 1386, 03:52 صبح
با سلام
با توجه به اینکه در تاپیکهای زیادی بحث استفاده از ADO.NET شده و روشهای متفاوتی از نحوه Connection ها با دیتابیس معرفی شده ولی بنده به علت تجربه خیلی کم نسبت به سایرین تقاضا دارم که یکی از دوستان چند خط کد زیر را که در دلفی 7 نوشته شده (شاید خیلی ناشیانه) به معادل آن در VB2005 تبدیل کنند.البته چند خط ابتدایی را لازم است جهت بررسی شما مینویسم.
-------------------------------------------------------------------
Delphi 7
-------------
s:='SELECT * FROM login_inf WHERE (tkh IS NULL) AND (skh IS NULL) ';
if (edit2.Text<>'') and (edit3.Text<>'') then
s:=s+'AND name = :param1 AND family = :param2' ;
if edit18.Text<>'' then
s:=s+' AND (shomare = '+edit18.Text+')' ;
query1.Close;
query1.SQL.Clear ;
query1.SQL.Add(s);
query1.Parameters.ParamByName('param1').Value := edit3.Text ;
query1.Parameters.ParamByName('param2').Value := edit2.Text ;
query1.Open
------------------------------------------------------------------
Visual Basic 2005
-----------------------
Imports System.Data
Imports System.Data.SqlClient
Dim con As SqlConnection = New SqlConnection("Data Source=WIN2000;Initial Catalog=sabt;User ID=sa")
Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM login_inf", con)
Dim ds As DataSet = New DataSet()
da.Fill(ds, "login_inf")
con.Open()
.
.
.
با توجه به اینکه در تاپیکهای زیادی بحث استفاده از ADO.NET شده و روشهای متفاوتی از نحوه Connection ها با دیتابیس معرفی شده ولی بنده به علت تجربه خیلی کم نسبت به سایرین تقاضا دارم که یکی از دوستان چند خط کد زیر را که در دلفی 7 نوشته شده (شاید خیلی ناشیانه) به معادل آن در VB2005 تبدیل کنند.البته چند خط ابتدایی را لازم است جهت بررسی شما مینویسم.
-------------------------------------------------------------------
Delphi 7
-------------
s:='SELECT * FROM login_inf WHERE (tkh IS NULL) AND (skh IS NULL) ';
if (edit2.Text<>'') and (edit3.Text<>'') then
s:=s+'AND name = :param1 AND family = :param2' ;
if edit18.Text<>'' then
s:=s+' AND (shomare = '+edit18.Text+')' ;
query1.Close;
query1.SQL.Clear ;
query1.SQL.Add(s);
query1.Parameters.ParamByName('param1').Value := edit3.Text ;
query1.Parameters.ParamByName('param2').Value := edit2.Text ;
query1.Open
------------------------------------------------------------------
Visual Basic 2005
-----------------------
Imports System.Data
Imports System.Data.SqlClient
Dim con As SqlConnection = New SqlConnection("Data Source=WIN2000;Initial Catalog=sabt;User ID=sa")
Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM login_inf", con)
Dim ds As DataSet = New DataSet()
da.Fill(ds, "login_inf")
con.Open()
.
.
.