黎娟的回答：使用.net下的system.sql.sqlclint类库下的sqlconnent;sqlcommand类进行写入操作 别说话我烦的回答：private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click dim sqlstr as string = "insert into tb values(" dim i as integer for i = 0 to datagridview1.columns.count - 1 sqlstr &= "'" & datagridview1.rows(datagridview1.rows.count - 1).cells(i) & "'" if i < datagridview1.columns.count - 1 then sqlstr &= "," next sqlstr &= ")" dim con as new sqlconnection(connectionstring) '这个自己写去 con.open() dim cmd as new sqlcommand(sqlstr, con) try dim result as integer = cmd.executenonquery() if result > 0 then msgbox "添加数据成功" else msgbox "添加数据失败" end if catch (ex as exception) msgbox "添加数据过程发生异常,原因:" & ex.message end try end sub |
