这个应该怎么改？？
本帖最后由 bcrun 于 2013-08-04 16:10:10 编辑
Public Function sql_input(ByVal my_sql As String) As Boolean
If m_root_mode = "win" Then
Dim msql_y As New SqlConnection(msqconstring)
msql_y.Open()
Dim msql_my As DataSet
Dim msql_me As DataSet
Dim ds As DataSet
Dim i As Integer，b As Integer
b="select count(*) from chinese"
For i=0 to b 'ds.recordcount
msql_my="select wb from chinese where wb='" + msql_my+ "'"
msql_me="insert china (cn,qp,wb) select cn,qp,wb www.jianfeiyao8888.com from chinese where wb='" + msql_my+ "'"
Next
msql_y.Close()
Return True
Else
Return False
End If
End Function
