Dim conn1 As New OleDbConnection(m_sConn1) Dim da1 As New OleDbDataAdapter("Select * From [sheet1$]", conn1) Dim ds1 As DataSet = New DataSet() da1.Fill(ds1, "b")
da1.UpdateCommand = New OleDbCommand("UPDATE [sheet1$] SET f2 =?, f4=? where f1=?", conn1) da1.UpdateCommand.Parameters.Add("@f2", OleDbType.VarWChar, 1000).SourceColumn = "f2" da1.UpdateCommand.Parameters.Add("@f4", OleDbType.VarWChar, 1000).SourceColumn = "f4" da1.UpdateCommand.Parameters.Add("@f1", OleDbType.LongVarChar, 255).SourceColumn = "f1"但是f2不能存放长度超过256的字符串
我是把excel作为一张表来操作的,向里面如果存放字符超过255,就提示错误
Dim m_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path & " ;" & _
"Extended Properties=""Excel 8.0;HDR=no"""
Dim conn1 As New OleDbConnection(m_sConn1)
Dim da1 As New OleDbDataAdapter("Select * From [sheet1$]", conn1)
Dim ds1 As DataSet = New DataSet()
da1.Fill(ds1, "b")
da1.UpdateCommand = New OleDbCommand("UPDATE [sheet1$] SET f2 =?, f4=? where f1=?", conn1)
da1.UpdateCommand.Parameters.Add("@f2", OleDbType.VarWChar, 1000).SourceColumn = "f2"
da1.UpdateCommand.Parameters.Add("@f4", OleDbType.VarWChar, 1000).SourceColumn = "f4"
da1.UpdateCommand.Parameters.Add("@f1", OleDbType.LongVarChar, 255).SourceColumn = "f1"但是f2不能存放长度超过256的字符串