var
adds: String
begin
adds := InputBox('添加数据', '输入需要添加的内容', '')
if adds <>'' then begin
ComboBox1.Items.Add(adds)
end
end
VB使用AddItem 方法给ComboBox控件添加数据。
AddItem 方法,用于将项目添加到 ListBox 或 ComboBox 控件。不支持命名参数。
Private Sub Form_Click()Dim Entry, I, Msg ' 声明变量。
Msg = "点OK增加100项到ComboBox控件"
MsgBox Msg ' 显示信息。
For I = 1 To 100 ' 计数值从 1 到 100。
Entry = "Entry " & I ' 创建输入项。
Combo1.AddItem Entry ' 添加该输入项。
Next I
End Sub
以users表为例,有三个字段,自增长的编号id,int类型;名称name,nvarchar类型,密码pwd,nvarchar类型首先在vs2005中引入using System.Data.SqlClient命名空间
/// 查询
/// </summary>
/// <returns></returns>
public DataTable Select()
{
SqlConnection conn = new SqlConnection(@"Data Source=.\SQLEXPRESSInitial Catalog=TestIntegrated Security=True")//Initial Catalog后面跟你数据库的名字,如果你的SqlServer服务器名称后面不带SQLEXPRESS,那么Data Source=.
conn.Open()
string sql = "select * from users"
SqlCommand cmd = new SqlCommand(sql, conn)
SqlDataAdapter sda = new SqlDataAdapter(cmd)
DataTable dt = new DataTable()
sda.Fill(dt)
conn.Close()
cmd.Dispose()
return dt
}
方法写好后,在form窗体中拖一个comboBox,然后在Load方法中
private void Form1_Load(object sender, EventArgs e)
{
comboBox1.DataSource = Select()//绑定数据
comboBox1.DisplayMember="name"//下拉列表中显示的是你数据库中name的值
comboBox1.ValueMember ="id"//这个一般绑定的是id,增加删除之用。这个属性也可不设
}
这样一运行,comboBox中就会显示数据了!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)