ارتباط با اس كيو ال از وي بي و عدم درج يا اصلاح ركورد

[h_r_ibm]

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa ; password=3342;Initial Catalog=dib;Data Source='" & ip & "' "
'rs.Open "SELECT * FROM pic_data", cn, adOpenDynamic



Text1.Text = rs.Fields("pic_addres"


سلام به دوستان عزيز
من يه برنامه ( با وي بي و اس كيو ال 2000 و با روش بالا نيز كانكت مي شم )تحت شبكه مي نويسم دچار مشكل شدم

حالا يه كدي مي خوام براي درج حذف و ويرايش ركورد جديد
هم اكنون دست ياري بسوي شما را داريم

[kitcat_m18]

سلام،
دوست من كدت به نظر مشكلي نداره اما نوشتي كه مشكل تو كد نويسي داري.
دقيقا مشكلت و اروري رو كه ميده بنويس و نمونه برنامت رو هم بذار تا بشه كمكت كرد.
موفق باشي :لبخندساده:

[h_r_ibm]

عزيز برنامم تحت شبكه است
قربونت
ممنون مي شم اگه كمكم كنيد




81089

[h_r_ibm]

برنامه در پست قبلي ارسال كردم

[h_r_ibm]

كمكم كنيد بخدا ديگه كلافه شدم

[kitcat_m18]

سلام،
با این نمونه ای که گذاشتی من هیچ کمکی بهت نمی تونم کنم
4 تا تکست و چند تا دکمه رو نا منظم و بدون نام گذاری آوردی رو فرمت انتظارم داری همشو برات درست کنن و نمونه اصلاح شده بهت بدن؟؟؟
منم در حد Sample می تونم راهنمائیت کنم.
فکر می کنم مشکلت در ذخیره عکس تو دیتابیس SQL Server باشه.
تو گوگل سرچ کن Save Picture In SQL Server
امیدوارم تو پست های دیگت از این نمونه ها قرار ندی
موفق باشی :لبخندساده: