重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
"insert into point_info values(' " " ' point_count ' , " " ' p1.label1.Text ' , " " 28,18,70,30 ")"
成都网络公司-成都网站建设公司创新互联公司10年经验成就非凡,专业从事网站制作、成都网站制作,成都网页设计,成都网页制作,软文发稿,一元广告等。10年来已成功提供全面的成都网站建设方案,打造行业特色的成都网站建设案例,建站热线:028-86922220,我们期待您的来电!
给你一段我过去的vb代码,vb连接access的,用adodb,很方便
代码比较丑陋,凑合看吧,是个自用的通讯录程序
txl是表名,Mobile,QQ,MSN...都是字段名称
'将列表框内容逐项加入数据库,创建更新sql字串
sqlString
=
"update
txl
set
Mobile='"
Trim$(txt(1).Text)
"',QQ='"
_
Trim$(txt(2).Text)
"',MSN='"
Trim$(txt(3).Text)
"',Email='"
Trim$(txt(4).Text)
"',Phone='"
_
Trim$(txt(5).Text)
"',Home='"
Trim$(txt(6).Text)
"',Birthday='"
txt(7).Text
"',Address='"
_
Trim$(txt(8).Text)
"',Postcode='"
Trim$(txt(9).Text)
"',Info='"
Trim$(txt(10).Text)
_
"'
where
Name='"
Trim$(ListView1.ListItems.Item(SelectIndex).Text)
"'"
'更新记录
Set
rs
=
conn.Execute(sqlString,
,
adCmdText)
要创建全局变量
Dim
conn
As
ADODB.Connection
'数据库连接
然后form在load的时候打开链接,可以操作数据库
'连接无密码数据库
Set
conn
=
New
ADODB.Connection
conn.ConnectionString
=
_
"Provider=Microsoft.Jet.OLEDB.4.0;"
_
"Data
Source="
dbName
";"
_
"Persist
Security
Info=False"
'打开连接
conn.Open。
me.backgroundimage=image.fromfile(apppath+"picture")
主要的错误是你的"picture"这里错了,apppath后面就应该接你要载入的图片的名字,比如说是02.jpeg,那就应该是
me.backgroundimage=image.fromfile(apppath+"\02.jpeg"),注意要加\和图片的后缀名。
你的语句并没有完全贴出来?
要注意区别:
1,如果是插入完整的一条记录(包括所有字段)
INSERT
INTO
表名称
VALUES
(值1,
值2,....)
2,如果插入只包含若干个指定字段(其余字段为空)
INSERT
INTO
table_name
(列1,
列2,...)
VALUES
(值1,
值2,....)
另外,你使用了变量,那么应该这样使用:
"insert
into
Personal_table
('"
Name_CH
"',
......
后面看不出了,
其实,你可以在这句之前,加一句输出,看看具体内容,你就知道了!
msgbox()在括号里把你的这个字符串放进去,看看结果是什么?
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Dim cmd As New SqlCommand
Dim conn As New SqlConnection
Dim sqldel = "insert into b values('ren','5')"
conn.ConnectionString = "server=a;database=b;uid=c;pwd=d;"
conn.Open()
cmd.Connection = conn
cmd.CommandText = sqldel
cmd.ExecuteNonQuery()
conn.Close()
现在工程里添加引用Microsoft.Office.Interop.Excel,然后可以使用如下代码输出。
Dim oXl As Excel.Application = New Excel.Application()
Dim oWb As Excel.Workbook
Dim oWs As Excel.Worksheet
On Error GoTo Morn
oWb = oXl.Workbooks.Add()
oWs = oWb.Worksheets(1)
With oWs
.Cells._Default(1, 1).Value ="a"
.Cells._Default(1, 2).Value ="b"
.Cells._Default(1, 3).Value ="c"
.Cells._Default(1, 4).Value ="d"
.Cells._Default(2, 1).Value ="32"
.Cells._Default(2, 2).Value ="1"
.Cells._Default(2, 3).Value ="90"
.Cells._Default(2, 4).Value ="合格"
End With
oWs.Parent.Names.Add("CostRange", "=" "A1:B39")
oWs.SaveAs(sFileName)
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
If MsgBox("已将数据输出到Excel文件中! 现在打开该文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then
oXl.Quit()
Else
oXl.Visible = True
End If
oXl = Nothing
oWs = Nothing
oWb = Nothing