تبديل كد هي C به VB.net

[غلامرضا شریفی]

سلام من نياز به ارتباط با بانكهاي foxproدارم (DBF) در تاپيكهاي vb چيزي پيدا نكردم در يك تاپيك كد c را نوشته بود ولي ياد ندارم به vb تبديلش كنم


var(oConn = New System.Data.Odbc.OdbcConnection)
{
ConnectionString =
@"Driver={Microsoft dBase Driver (*.dbf)};SourceType=DBF;SourceDB=D:\databases\;Exc lusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH =NO;"
};
oConn.Open();
System.Data.Odbc.OdbcCommand oCmd = oConn.CreateCommand();
oCmd.CommandText = @"SELECT * FROM D:\1\a.dbf";
var dt = new DataTable();
dt.Load(oCmd.ExecuteReader());
oConn.Close();
dataGridView1.DataSource = dt;

[iman_me]

چیزی رو نمیخواد تبدیل کنی فقط کانکشنش رو کپی کن بقیه اش همون vb.net
البته اگه دوباره خواستی بگو تا واست درستش کنم

[armin8651]

این لینک مبدل آنلاین C# به vb.net و برعکس هستش:
http://www.developerfusion.com/tools/convert/csharp-to-vb/

[غلامرضا شریفی]

آقاي ايمان عزيز از لطف شما سپاسگزارم اگر بصورت برنامه كامل به من تبديلش را بدهيد ممنون ميشوم

[iman_me]

var(oConn = New System.Data.Odbc.OdbcConnection)
ConnectionString = "Driver={Microsoft dBase Driver (*.dbf)};SourceType=DBF;SourceDB=D:\databases\;Exc lusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH =NO;"
oConn.Open()
Dim oCmd As System.Data.Odbc.OdbcCommand = oConn.CreateCommand()
oCmd.CommandText = "SELECT * FROM D:\1\a.dbf"
Dim dt = New DataTable()
dt.Load(oCmd.ExecuteReader())
oConn.Close()
dataGridView1.DataSource = dt

[iman_me]

فقط من امتحانش نکردم اگه مشکل داشت بگو که رفعش کنم

[غلامرضا شریفی]

آقاي ايمان عزيز قبل از اين كدها چكاربايد بكنم همانطور كه در تصوير مي بينيد زير بعض از متغيرها خط كشيده شده است

[iman_me]

حالا چی ببین درست شد خطا ها گرفته شد ولی من بانک foxpro ندارم که اجراش کنم


Imports System.Data.Odbc
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As OdbcConnection = New OdbcConnection
con.ConnectionString = "Driver={Microsoft dBase Driver (*.dbf)};SourceType=DBF;SourceDB=D:\databases\;Exc lusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH =NO;"
con.Open()
Dim oCmd As OdbcCommand = con.CreateCommand()
oCmd.CommandText = "SELECT * FROM D:\1\a.dbf"
Dim dt = New DataTable()
dt.Load(oCmd.ExecuteReader())
con.Close()
dataGridView1.DataSource = dt
End Sub
End Class

[غلامرضا شریفی]

آقي ايمان بسيار سپاسگزارم مشكل حل شد جسارتا يك پرسش ديگر
من جهت برقراي با بانك در sql از روش زير استفاده ميكنم datasetكه درست ميكنم را پر ميكنم و از آن جهت نمايش در تكس استفاده ميكنم حالا در دستورات بالا چه تغييراتي بايد بدهم كه datasetرا پر كنم


Dim Strsql As String = "select * from A_kol"
Dim data_bas As New SqlDataAdapter(Strsql, "Data Source=.;Initial Catalog=data_rabet;Integrated Security=True")
Dim data_set As New DataSet
data_bas.Fill(data_set, "A_kol")

[iman_me]

باید بجای کد select این کد رو بنویسید


"INSERT INTO [A_kol] (name,family) VALUES("+TextBox1.text+","+TextBox2.text+")"

[غلامرضا شریفی]

آقاي ايمان من جهت پر كردن تكس باس از روش ذيل استفاده كردم


Me.TextBox1.DataBindings.Add(New Binding("text", dt, "Fpag"))
Me.TextBox1.DataBindings.Clear()

حالا چطور بايد به ركورد بعدي dt بروم تاfpag ركورد بعدي را بدست بياورم

[غلامرضا شریفی]

به روش ذيل مشكلم حل شد


Dim con1 As OdbcConnection = New OdbcConnection
con1.ConnectionString = "Driver={Microsoft dBase Driver (*.dbf)};SourceType=DBF;SourceDB=D:\databases\;Exc lusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH =NO;"
con1.Open()
Dim Strsql_Grid As String = "SELECT * FROM D:\dbf87\kol.dbf"
Dim data_bas As New OdbcDataAdapter(Strsql_Grid, con1)
Dim data_set As New DataSet
data_bas.Fill(data_set, "kol")
con1.Close()
Me.BindingContext(data_set, "kol").Position += 3
Me.TextBox1.DataBindings.Add(New Binding("text", data_set, "kol.Fpag"))
Me.TextBox1.DataBindings.Clear()

با سپاس از آقاي ايمان كه بسيار لطف فرمودن