private void Form1_Load(object sender, EventArgs e)
{
listView1.View = View.Details
listView1.Dock = DockStyle.Fill
listView1.Columns.Add("col1")
listView1.Columns.Add("col2")
listView1.Columns.Add("col3")
}
//在属性窗口双击产生事件代码
private void listView1_SizeChanged(object sender, EventArgs e)
{
int w = (listView1.Width-10) / 3//减10是考虑到边框和滚动条的宽度
listView1.Columns[0].Width = w
listView1.Columns[1].Width = w
listView1.Columns[2].Width = w
}
那就是VS的版本太低,SP1补丁打了没看下VS2008 SP1的自述文件,如果是win7也有兼容性问题,如果是速成版也是原因之一,原因比较复杂,不行只能重装了,是按SQL2008,SQL2008SP1,vs2008,vs2008SP1的顺序安装,其中不装默认的sql2005 express,最后装office2007
VS2008SP1地址,下边相关资源里有SP1的自述文件,里边有较详细的解决办法,要自己摸索了
http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=fbee1648-7106-44a7-9649-6d9f6d58056e
Dim link1 As New ADODB.ConnectionDim rs As New ADODB.Recordset
Dim pubdatapath As String
Sub opendatabase(datapath As String)'打开数据库函数
If link1.State = 1 Then '如果以连接过,则关闭,初始化下次事务
link1.Close: list2.ListItems.Clear: list2.ColumnHeaders.Clear: c.Clear: list1.ListItems.Clear
End If
link1.ConnectionString = "Provider=microsoft.jet.oledb.4.0data source=" &datapath
link1.Open
pubdatapath = datapath
Set biaoming = link1.OpenSchema(adSchemaColumns)'创建数据库记录集
tablename = ""
Do Until biaoming.EOF
If biaoming("table_name") <>tablename Then '列出所有表
tablename = biaoming("table_name")
list1.ListItems.Add , , tablename
End If
biaoming.MoveNext
Loop
Set biaoming = Nothing
menu1.Enabled = True
list1_MouseUp 1, 0, 10, 10
End Sub
Private Sub Command1_Click() '打开数据库
d.DialogTitle = "打开一个数据库文件进行浏览"
d.InitDir = App.Path
d.FileName = ""
d.Filter = "Access数据库(mdb后缀,推荐格式)|*.mdb"
d.ShowOpen
If d.FileName = "" Then Exit Sub
opendatabase d.FileName
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)