VB.NET如何在listbox中显示数据库的某一字段的内容(ACCESS)
'首先要在工程引用中引用：microsoft activex data objects 2.5 library 然后复制下面代码:
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim have As Boolean
Private Sub Command1_Click()
List1.Clear
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb;Persist Security Info=True;Jet OLEDB:Database Password="
SQL = "select * from stu"
Rs.Open SQL, Conn, 1, 3
Do While Rs.EOF = True
List1.AddItem "" & Rs("姓名")
Rs.movenext
Loop
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
End Sub
假设我现在有一个名为“Database1.mdb”的access数据库，里面有一张“BasicImformation”表
这张表中只有一个字段“Name”,那么将listbox中的数据全部插入到“BasicImformation”表的代码如下
Dim i As integer=0
for i = 0 to listbox1.items.count-1
Dim OLDA As OleDbDataAdapter = New OleDbDataAdapter
Dim conn As OleDbConnection = New OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand
Dim DT As DataTable =New DataTable
Dim DataSet1 As DataSet = New DataSet
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource='F:\VS2008\Database1.mdb' " （DataSource 必须是你的全程路径，也就是你数据库存放位置的全程路径）
cmd.CommandText = "select * from BasicImformation"
cmd.Connection = conn
OLDA.SelectCommand = cmd
Dim builder As OleDb.OleDbCommandBuilder = New OleDbCommandBuilder(OLDA)
(这句不能掉，起一个监控的作用)
conn.Open()
OLDA.Fill(DataSet1, "BasicImformation")
DT = DataSet1.Tables("BasicImformation")
conn.Close()
Dim myrow As DataRow = DT.NewRow()
myrow("Name") = listbox1.items(i)
DT.Rows.Add(myrow)
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='Database1.mdb'"
cmd.CommandText = " INSERT into BasicImformation (Name) values ( '" & listbox1.items(i) & "' )"
cmd.Connection = conn
OLDA.InsertCommand = cmd
Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder
conn.Open()
OLDA.Update(DataSet1, "BasicImformation")
next
dim sqlstring as string="select 凭证字 from 凭证字"
Dim connstr as String="Provider=Microsoft.Jet.Oledb.4.0;"& "Data source=rent.mdb"
Dim ConnTemp As New OleDb.OleDbConnection
Dim RSTemp As OleDb.OleDbDataReader
ConnTemp.ConnectionString = connstr
Dim CmdTemp As New OleDb.OleDbCommand(sqlstring, ConnTemp)
ConnTemp.Open()
RSTemp = CmdTemp.ExecuteReader
Do While RSTemp.Read
ListBox1.Items.Add(RSTemp(0))
Loop
RSTemp.Close()
conntemp.close
B.L动画很多都看不到啊,有没有什么BL动画网站可以看到
http:\/\/www.wydm.net\/animation\/list\/tag\/71\/2 这种和谐东西在线当然不多啦，要下载来看啊。这个网站上有一点
VB6.0与VB.NET有什么区别?
1.3 VB.NET 编辑器和编译器你可以在记事本或VS.NET IDE等任意文本编辑器中撰写上述代码,然后保存为HelloWorld.vb。 代码编写完成之后,要么在命令行、要么在VS.NET IDE中编译它。在Microsoft .NET Framework SDK中已经包括VB.NET编译器vbc.exe[][1],从IDE或是命令行都可以调用。要从命令行编译HelloWorld.vb,请...
vb.net如何调用窗体之间的控件
Me.l2.Location = New System.Drawing.Point(8, 32)Me.l2.Name = "l2"Me.l2.Size = New System.Drawing.Size(200, 16)Me.l2.TabIndex = 1 ''l3 'Me.l3.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))Me.l3.Location = N...
教你如何破解VisualSVN
我找到的是位于bin目录下的VisualSVN.Core.L.dll，使用.NET Reflector 加载Assembly，找到VisualSVN.Core.Licensing.LicenseConverter类中的方法KeyToLicenseUnsafe(IDecoder, String):License 下面是未修改的IL代码.method public hidebysig static class VisualSVN.Core.Licensing.License KeyToLicenseUnsafe(class...
帮忙推荐一套.net网站开发面试题,谢谢
答案:B问题二:如果能得到的字母是K、L、M,那么能够形成的两个字母长的密码单词的总数是多少?A)1个 B)3个 C)6个 D)9个答案:A问题三:下列哪一个是单词密码?A) KLLN B) LOML C) MLLO D)NMKO答案:C8. 62-63=1 等式不成立,请移动一个数字(不可以移动减号和等于号),使得等式成立,如何移动?答案:...
VB.NET想用GetWindowRECT获取某窗口的坐标,但测试结果是L,T,R,B...
很简单，原因有二。第一，VB里long是32位，但是VB.NET里是64位，Dim ksWND As Integer才对。第二，VB在API里默认传址，而VB.NET默认传值，所以API里要添加Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,添加"ByRef" lpRect As RECT) As Integer Private Declare...
如何使用VB.NET DateTimePicker控件
实例在常用控件（Common Controls）下的工具箱(Toolbox)中找到DateTimePicker控件，并把它添加到Windows Forms中。设置以下属性：l Name：dtpDateSelectionl CustomFormat：mm\/dd\/yyyyl Format：短l MaxDate：12\/31\/2008l MinDate：01\/01\/2007l ShowUpDown：假 在Form Load事件中添加以下代码： dtpDa...
vb.net如何捕获某窗体的键盘事件
Public Type EVENTMSG vKey As Long sKey As Long flag As Long time As Long End Type Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ...
如何用VB.NET生成一个随机字符串
For i = 1 To l R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有26个 If R < 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48 S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符 ElseIf R < 36 Then...
如何用VB.net调用matlab里的m文件
● Declare Function OpenProcess Lib “kernel32”(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long,ByVal dwProcessId As Long) As Long 3. 示例代码:Dim lTask As Long, lret As Long, lHandle As Long ’执行file.exe文件 lTask = Shell(“file.exe”, vbNormalFocus)lHandle ...
何研氯芬： vb.net中,listbox控件的Sorted属性有false和true两个,true是自动排序(如果设置的话会马上整理),false是不排序.如果要倒序的话推荐使用数组,这样好操作一些. 还有你的书上是有这些的吧,如果没有的话书可以over了(都是入门级的)
宿松县13024707377： VB.NET 大神帮看看啊 如何将数据库表绑定到checkedlistbox中 - ？
何研氯芬： 在checkedlistbox的参数中设置dataTextField,DataValueField,在装入时用this.XX.DataSource = globalDictCollection;this.XX.DataBind();
宿松县13024707377： vb.net 读取xml节点值到listbox中 - ？
何研氯芬： xml的格式感觉不是很优化,可以改为这样11...
宿松县13024707377： VB.NET IO.StreamReader怎么读取文本然后覆盖listbox中的值 - ？
何研氯芬： ListBox1.Items.Clear() Using sr As New IO.StreamReader(＂dizhi＂) Do Until sr.EndOfStream = True ListBox1.Items.Add(sr.ReadLine) '将当前行增加到listbox1中 Loop End Using
宿松县13024707377： vb.net中如何让listbox中显示指定文件夹中的所有*.yy文件啊! - ？
何研氯芬： FolderBrowserDialog fbd = new FolderBrowserDialog(); //打开一个文件夹 if (fbd.ShowDialog() == DialogResult.OK) { //找到文件夹下的所有yy文件 string[] fs = Directory.GetFiles(fbd.SelectedPath,＂*.yy＂); for (int i = 0; i < fs.Length; i++) { listbox1.items.add(fs[i]); } } C#代码,转下
宿松县13024707377： vb.net中,怎么在窗体运行时往listbox内输入数据?？
何研氯芬： listbox1.datasource = 你要在这里给他绑定一个数据源.
宿松县13024707377： vb.net 添加了右键,如何向listbox进行右键文件操作(请进来看详细) - ？
何研氯芬： ConTextMenuStrip控件不要和listbox绑定,用代码弹出来: Private Sub ListBoxUser_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBoxUser.MouseDownIf e.Button = Windows....
宿松县13024707377： VB.NET如何在listbox中显示数据库的某一字段的内容(ACCESS) - ？
何研氯芬： select * from 课程总表 where isnull(column3) or isnull(column4)
宿松县13024707377： checkedlistbox用法 - ？
何研氯芬： 一、常用属性和方法CheckedListBox控件的属性和方法基本上都可以在ListBox控件中找到,可以参看这里:vb.net入门——ListBox控件的使用.值得我们重视的是,CheckedListBox控件的CheckedItems属性,它是CheckedListBox控件中复选...
宿松县13024707377： vb.net listbox如何始终保持显示最后一行 - ？
何研氯芬： 在另外的事件中处理一下就可以了,比如,在窗体form1加载完成以后让listbox1显示最后一行,这样做:Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListBox1.SelectedItem = ...
