VB.NET OLEDB创建Excel数据库

VB.NET OLEDB创建Excel数据库

Imports System.Data.OleDb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cnstr As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:/test.xls;Extended Properties='Excel 8.0'"
        Dim cn As New OleDbConnection(cnstr)
        Dim sqlCreate As String = "CREATE TABLE vb小源码 ([序号] INTEGER,[用户名] VarChar,[密码] VarChar)"
        Dim ocmd As New OleDbCommand(sqlCreate, cn)
        '创建Excel文件
        cn.Open()
        '创建vb小源码工作表
        ocmd.ExecuteNonQuery()
        '添加数据
        ocmd.CommandText = "INSERT INTO vb小源码 VALUES(1,'VB小源码','123456')"
        ocmd.ExecuteNonQuery()
        cn.Close()
    End Sub
End Class

原文发布于微信公众号 - VB小源码(vb_xym)

原文发表时间:2019-03-07

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

扫码关注云+社区

领取腾讯云代金券