help me !!!青帮我把c#转成vb.net程序

[nuanse]

private void Button1_Click(object sender, System. Event- Args e)
{
string conn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=db1.MDB";
string sstr="select * from sample";
OleDbConnection ole=new OleDbConnection(conn);
OleDbDataAdapter ad=new OleDbDataAdapter(sstr,ole);
DataSet ds=new DataSet();
ole.Open();
ad.Fill(ds);
ole.Close();
this.DataGrid1.DataSource=ds;
this.DataGrid1.DataBind();
}
// 显示统计图表

private void Button2_Click(object sender, System.Event- Args e)
{
string conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.MDB";
string sstr="select * from sample";
OleDbConnection ole=new OleDbConnection(conn);
OleDbDataAdapter ad=new OleDbDataAdapter(sstr,ole);
DataSet ds=new DataSet();
ole.Open();
ad.Fill(ds);
ole.Close();

//创建一个数据源，这里我们为了方便其间，采用数组做为柱形图和饼图的数据源
int[] arrvalues={0,0,0,0,0,0};
//定义数组对象，用来描述图例。
string[] arrvalueNames={"","","","","",""} ;

int i;

for(i=0;i<ds.Tables[0].Columns.Count;i++)
{
arrvalueNames[i]=ds.Tables[0].Columns[i].ColumnName.ToStr-ing();
arrvalues[i]=(int)ds.Tables[0].Rows[0][i];
}
plot(arrvalues,arrvalueNames);
}

protected void plot(int[] arrvalues,string[] arrvalueNames)

[herodraw]

你发错了地方了

[lanhan_net]

这个网站应该能帮你
http://authors.aspalliance.com/aldotnet/examples/translate.aspx

[APP开发王]

http://blog.csdn.net/wgsnet/archive/2005/04/12/344895.aspx

[APP开发王]

Private Sub Button1_Click(sender As Object, __unknown As System.Event) '
'ToDo: Error processing original source shown below
'System.Char[]
'-------------------------------------------------------^--- Syntax error: 'identifier' expected
'
'ToDo: Error processing original source shown below
'System.Char[]
'--------------------------------------------------------------^--- Syntax error: ';' expected
'
'ToDo: Error processing original source shown below
'System.Char[]
'---------------------------------------------------------------^--- Syntax error: ';' expected
If (True) Then
Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=db1.MDB"
Dim sstr As String = "select * from sample"
Dim ole As New OleDbConnection(conn)
Dim ad As New OleDbDataAdapter(sstr, ole)
Dim ds As New DataSet()
ole.Open()
ad.Fill(ds)
ole.Close()
Me.DataGrid1.DataSource = ds
Me.DataGrid1.DataBind()
End If
' 显示统计图表
Dim Button2_Click As
'
'ToDo: Error processing original source shown below
'
'
'---------^--- GenCode(token): unexpected token type
System.Event - Args '
'ToDo: Error processing original source shown below
'
'
'-^--- expression expected
'
'ToDo: Error processing original source shown below
'
'
'---------------------------^--- Syntax error: ';' expected
'
'ToDo: Error processing original source shown below
'
'
'-----------------------------------^--- Syntax error: '.' expected
'
'ToDo: Error processing original source shown below
'
'
'-----------------------------------------^--- Syntax error: ';' expected
'
'ToDo: Error processing original source shown below
'
'
'--------------------------------------------------------------^--- Syntax error: ';' expected
'
'ToDo: Error processing original source shown below
'
'
'---------------------------------------------------------------^--- Syntax error: ';' expected
If (True) Then
Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.MDB"
Dim sstr As String = "select * from sample"
Dim ole As New OleDbConnection(conn)
Dim ad As New OleDbDataAdapter(sstr, ole)
Dim ds As New DataSet()
ole.Open()
ad.Fill(ds)
ole.Close()

'创建一个数据源，这里我们为了方便其间，采用数组做为柱形图和饼图的数据源
Dim arrvalues As Integer() = {0, 0, 0, 0, 0, 0}
'定义数组对象，用来描述图例。
Dim arrvalueNames As String() = {"", "", "", "", "", ""}

Dim i As Integer

For i = 0 To (ds.Tables(0).Columns.Count) - 1
arrvalueNames(i) = ds.Tables(0).Columns(i).ColumnName.ToStr - ing()
arrvalues(i) = CInt(ds.Tables(0).Rows(0)(i))
Next i
plot(arrvalues, arrvalueNames)
End If

Dim plot As
'
'ToDo: Error processing original source shown below
'
'
'-----------^--- GenCode(token): unexpected token type
Integer()
Dim arrvalueNames() As String '
'ToDo: Error processing original source shown below
'
'
'-^--- expression expected
'
'ToDo: Error processing original source shown below
'
'
'--------------------^--- Syntax error: ';' expected
'
'ToDo: Error processing original source shown below
'
'
'------------------------^--- Syntax error: '.' expected
'
'ToDo: Error processing original source shown below
'
'
'---------------------------^--- Syntax error: ')' expected
'
'ToDo: Error processing original source shown below
'
'
'------------------------------------^--- Syntax error: ';' expected
'
'ToDo: Error processing original source shown below
'
'
'-----------------------------------------------------------^--- Syntax error: ';' expected
'
'ToDo: Error processing original source shown below
'System.Char[]
'^--- Syntax error: '}' expected
End Sub 'Button1_Click